シンプルなプログラムの作り方(電話メモ) Part.2

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

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

　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
------------------------------------------------------------

　　　　　まだ続く(汗)