皆さん、こんにちは。山本美孝です。

 さて電話メモのデザインは概ね(おおむね)完成したので、次はコーディングです。

 DateSetというプロシージャを設計します。これは、改行や日付を入力する機能を持ったものです。

------------------------------------------------------------
Private Sub DateSet()

  ’txtMemoの終端が改行でなければ、改行を入れる

  If Len(txtMemo.Text) <> 0 And Right(txtMemo.Text, 1)_
  <> vbCrLf Then
    txtMemo.Text = txtMemo & vbCrLf
  End If

  ’txtMemoの終端に年月日と曜日を追加する

  txtMemo.Text = txtMemo.Text & Format _
  (Now, "yyyy/mm/dd (aaa) hh:nn") & vbCrLf & " "

  ’txtMemoの終端にカーソルを移動させる

  txtMemo.SelStart = Len(txtMemo.Text)

End Sub
------------------------------------------------------------

     まだ続く(汗)

コメント