2016-06-14 48 views
0

我创建了一个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 
+0

当拖动计时器到表单,它的'Enabled'属性默认为false。你有没有在设计器中启用它,或者你的代码集中的其他地方是'Timer1.Enabled = True'? – InbetweenWeekends

+0

您能否针对您所面临的问题制定更具体的规定?您上面给出的代码将更新两个文本框。但你的问题是关于声音。你能用迄今为止编写的代码来更新你的问题吗? –

回答

0

我用这个代码,这个

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