皆さん、こんにちは。山本美孝です。いよいよプログラムの完成です。以下のコードを追加してください。

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

 これで、完成です。え゛、プログラムを修正するとメモも消えてしまうじゃないかって?ごもっともです。

コメント