時間間隔のある音声をvb.netに追加する

Question

vb.netアプリケーションを作成しました フォーム2のテキストボックスとボタン1つで Textbox1は1時間後に現在のシステム時刻とテキストボックス2を表示します。 ボタンを押すと1時間後に音が鳴ります。 30分で5つの異なる時間ボタンを押すと、そのボタンを押すと1時間後に音が鳴ります。

私はサウンドを再生し、テキストボックスに2つの異なる時間を表示する次のコードがあります。

Private Sub ESREntry_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
      Dim mytime As System.DateTime 
      Dim hours As Double = 1 
      mytime = Now.ToShortTimeString 


      StartTimetxt.Text = mytime 
      EndTimeTxt.Text = mytime.AddHours(+hours) 

      Timer1.Start() 
End sub 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 
      Dim hours As Double = 1 
      Me.StartTimetxt.Text = TimeOfDay 
      Me.EndTimeTxt.Text = TimeOfDay.AddHours(+hours).ToShortTimeString 
End Sub 

Answer 1

私はこの

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    Console.Beep() 

End Sub 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 
    Console.Beep() 

End Sub