シンプルなプログラムの作り方(電話メモ) Part.2
2005年3月17日 コンピュータ 皆さん、こんにちは。山本美孝です。
さて電話メモのデザインは概ね(おおむね)完成したので、次はコーディングです。
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
------------------------------------------------------------
まだ続く(汗)
さて電話メモのデザインは概ね(おおむね)完成したので、次はコーディングです。
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
------------------------------------------------------------
まだ続く(汗)
コメント