WindowsMediaPlayer1 怎样 连续播放MP3
我试过了,用PlayStateChange事件可是总播完一首完后还是不能播放下首

[解决办法]

VB code

Dim REPEAT As BooleanPrivate Sub Form_Load()Timer1.Interval = 100WindowsMediaPlayer1.settings.autoStart = TrueWindowsMediaPlayer1.URL = "D:\My Documents\My Music\音乐\jjy.mp3"REPEAT = FalseEnd SubPrivate Sub Timer1_Timer()Static i As IntegerIf REPEAT = True Theni = i + 1Select Case iCase 1WindowsMediaPlayer1.Controls.stopWindowsMediaPlayer1.URL = "D:\My Documents\My Music\音乐\ws.mp3"WindowsMediaPlayer1.Controls.playREPEAT = FalseCase 2WindowsMediaPlayer1.Controls.stopWindowsMediaPlayer1.URL = "D:\My Documents\My Music\音乐\shanxi.mp3"WindowsMediaPlayer1.Controls.playREPEAT = FalseCase 3WindowsMediaPlayer1.Controls.stopWindowsMediaPlayer1.URL = "D:\My Documents\My Music\音乐\xb.mp3"WindowsMediaPlayer1.Controls.playREPEAT = Falsei = 0End SelectEnd IfEnd SubPrivate Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)If NewState = 8 ThenREPEAT = TrueEnd IfEnd Sub