在vb.net中添加帶有時間間隔的聲音

我創建了一個vb.net應用程序在窗體2文本框和一個按鈕中 Textbox1在1小時後顯示當前系統時間和文本框2。所以當我按下按鈕時，聲音應該在1小時後按下按鈕完全播放。因此，如果我在半小時內按下5個不同時間的按鈕，則從該按鈕按下1小時後應該播放聲音。在vb.net中添加帶有時間間隔的聲音

我有以下代碼來播放聲音並在文本框中顯示兩個不同的時間。

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

來源

2016-06-14 user3287723

當拖動計時器到表單，它的'Enabled'屬性默認爲false。你有沒有在設計器中啓用它，或者你的代碼集中的其他地方是'Timer1.Enabled = True'？ – InbetweenWeekends

您能否針對您所面臨的問題制定更具體的規定？您上面給出的代碼將更新兩個文本框。但你的問題是關於聲音。你能用迄今爲止編寫的代碼來更新你的問題嗎？ –

我用這個代碼，這個

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

來源

2016-06-15 12:10:55 user3287723

在vb.net中添加帶有時間間隔的聲音

回答

相關問題