Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim sHeure As String '" sHeure = Date.Today.Hour & ":" & Date.Today.Minute & ":" & Date.Today.Second sHeure = Hour(Date.Now) & ":" & Minute(Date.Now) & ":" & Second(Date.Now) lbHeure.Text = sHeure If sHeure >= txtHeureReveil.Text Then My.Computer.Audio.Play("c:\bugs11_a.wav", AudioPlayMode.Background) Timer1.Enabled = False End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question