如果选择了“下一步”,则VB.net将循环播放mp3
嘿,我有以下代码:如果选择了“下一步”,则VB.net将循环播放mp3,vb.net,audio,media-player,mp3,Vb.net,Audio,Media Player,Mp3,嘿,我有以下代码: Dim totalDistance as Boolean = False If totalDistance <= 210 Then 'red If isPlaying = False Then isPlaying = True WMP.URL = Application.StartupPath + "\red.mp3" WMP.controls.stop()
Dim totalDistance as Boolean = False
If totalDistance <= 210 Then
'red
If isPlaying = False Then
isPlaying = True
WMP.URL = Application.StartupPath + "\red.mp3"
WMP.controls.stop()
WMP.controls.play()
WMP.settings.setMode("loop", True)
End If
backupLineRED.Visible = True
backupLineYELLOW.Visible = False
backupLineGREEN.Visible = False
ElseIf totalDistance > 210 And totalDistance <= 670 Then
'yellow
WMP.URL = Application.StartupPath + "\yellow.mp3"
WMP.controls.play()
backupLineRED.Visible = True
backupLineYELLOW.Visible = True
backupLineGREEN.Visible = False
ElseIf totalDistance > 671 And totalDistance <= 1000 Then
'green
WMP.URL = Application.StartupPath + "\green.mp3"
WMP.controls.play()
backupLineRED.Visible = True
backupLineYELLOW.Visible = True
backupLineGREEN.Visible = True
End If
Dim totalDistance为布尔值=False
如果totalDistance 671和totalDistanceGotcha…也许这将满足您的需要:
If totalDistance <= 210 Then
'red
If WMP.URL <> Application.StartupPath + "\red.mp3" Then
WMP.URL = Application.StartupPath + "\red.mp3"
WMP.controls.stop()
WMP.controls.play()
WMP.settings.setMode("loop", True)
End If
backupLineRED.Visible = True
backupLineYELLOW.Visible = False
backupLineGREEN.Visible = False
ElseIf totalDistance > 210 And totalDistance <= 670 Then
'yellow
If WMP.URL <> Application.StartupPath + "\yellow.mp3" Then
WMP.URL = Application.StartupPath + "\yellow.mp3"
WMP.controls.stop()
WMP.controls.play()
WMP.settings.setMode("loop", True)
End If
backupLineRED.Visible = True
backupLineYELLOW.Visible = True
backupLineGREEN.Visible = False
ElseIf totalDistance > 671 And totalDistance <= 1000 Then
'green
If WMP.URL <> Application.StartupPath + "\green.mp3" Then
WMP.URL = Application.StartupPath + "\green.mp3"
WMP.controls.stop()
WMP.controls.play()
WMP.settings.setMode("loop", True)
End If
backupLineRED.Visible = True
backupLineYELLOW.Visible = True
backupLineGREEN.Visible = True
End If
If totalDistance 671和totalDistance每个If语句都需要进行检查,因为每个.mp3都需要循环,直到它位于不同的If语句中。