Private Sub Command1_Click()
WindowsMediaPlayer1.URL = "d:\0.mp3"
WindowsMediaPlayer1.Controls.play
If WindowsMediaPlayer1.playState <> wmppsPlaying Then
WindowsMediaPlayer1.URL = "d:\3.mp3"
WindowsMediaPlayer1.Controls.play
End If
End Sub
思路是点击COMMAND1播放0.mp3
结束
如果不能播放0.mp3则播放3.mp3
结束
看看我这条程序错在哪了？