シンプルなプログラムの作り方(電話メモ) Part.3
2005年3月17日 コンピュータ 皆さん、こんにちは。山本美孝です。いよいよプログラムの完成です。以下のコードを追加してください。
------------------------------------------------------------
Private Sub Form_Load()’フォームがロードされた最初の時
Call DateSet
End Sub
------------------------------------------------------------
Private Sub Form_Resize()’フォームがリサイズされた時
If frmMain.WindowState = 1 Then ’標準に戻されたなら
’0………最小化 2………最大化
Call DateSet
End If
End Sub
------------------------------------------------------------
これで、完成です。え゛、プログラムを修正するとメモも消えてしまうじゃないかって?ごもっともです。
------------------------------------------------------------
Private Sub Form_Load()’フォームがロードされた最初の時
Call DateSet
End Sub
------------------------------------------------------------
Private Sub Form_Resize()’フォームがリサイズされた時
If frmMain.WindowState = 1 Then ’標準に戻されたなら
’0………最小化 2………最大化
Call DateSet
End If
End Sub
------------------------------------------------------------
これで、完成です。え゛、プログラムを修正するとメモも消えてしまうじゃないかって?ごもっともです。
コメント