|
■No82029 (furu さん) に返信
furu様
わかりづらくてすいません
現在は Timeronseiが、音声を時間指定で流している
Private Sub Timeronsei_Tick(sender As Object, e As EventArgs) Handles Timeronsei.Tick Dim dt10 As Date = Now Dim dt10 As Date = Now Dim hm10 As Integer = dt10.Hour * 100 + dt10.Minute
ElseIf 1519 <= hm10 AndAlso hm10 < 1521 Then Timerkeisoku.Start() ’Form2 Form2.Label7.Text = "確認してください"
'サウンド再生 My.Computer.Audio.Play( _ "C:\Users\\Desktop\モニター 本\加工音声\到着遅れ.wav", AudioPlayMode.Background)
’Form2のラベル表示 Form2.Label4.Visible = True
'サウンドを止める ElseIf Label38.Text = "待機中" Then My.Computer.Audio.Stop()
|