Question

我创建了一个vb.net应用在表单2文本框和一个按钮 1小时后，Textbox1显示当前系统时间和textbox2。因此，当我按下按钮时，按下按钮1小时后声音应该正好播放。因此，如果我在半小时内按下按钮5个不同的时间，则按下该按钮后，声音将在1小时后播放。

我有以下代码来播放声音并在文本框中显示两个不同的时间。

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

在vb.net中添加时间间隔的声音

1 个答案: