https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=9253#CommentId12267
投稿者 トマト  (小学生) 投稿日時 2009/8/4 02:46:05
使い方を書くのを忘れてました・・・。

'宣言 

Dim WithEvents Timer As DateTimer 'DateTimerクラスは、同じ名前空間にあるとして 



Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

   '初期化 

    Timer = New DateTimer(#8/3/2009 6:00:00 PM#) '2009年8月3日 午後6時にセット 

End Sub



Private Sub Timer_ItWasTime(ByVal sender As Object, ByVal e As System.EventArgs, ByRef Enabled As Boolean) Handles Timer.ItWasTime

   Enabled = False

   'ここから下に処理を書く 



    '設定時間を変えてもう一度スタートするには 

    'Timer.SettingDateTime = #8/3/2009 7:00:00 PM# '2009年8月3日 午後6時にセット 

    'Enabled = True 

   '↑実際に使うにはコメントを外してください。 

End Sub

テストしていないので、もしかしたら、エラーがあるかもしれません。
0