WindowsMediaPlayer1 怎样 连续播放MP3

Question

我试过了,用PlayStateChange事件可是总播完一首完后还是不能播放下首

Answer 1

你的PlayStateChange事件代码？
  
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) 
http://feiyun0112.cnblogs.com/

Answer 2

有,我用的是WMP.dll   If music.playState = wmppsStopped Or music.playState = wmppsMediaEnded And kaishilx = False Then
      Select Case musicz
         Case 1
            musicz = musicz + 1
            'music.Close
            If wmvhup >= 1 And wmvhup <= 10 Or wmvhup = 41 Or wmvhup = 42 Or wmvhup = 43 Then
               music.URL = "D:\mp3\sound\4.wav"
            ElseIf wmvhup >= 11 And wmvhup <= 20 Or wmvhup = 44 Or wmvhup = 45 Or wmvhup = 46 Then
               music.URL = "D:\mp3\sound\3.wav"
            ElseIf wmvhup >= 21 And wmvhup <= 30 Or wmvhup = 47 Or wmvhup = 48 Or wmvhup = 49 Then
               music.URL = "D:\mp3\sound\2.wav"
            ElseIf wmvhup >= 31 And wmvhup <= 40 Or wmvhup = 50 Or wmvhup = 51 Or wmvhup = 52 Then
               music.URL = "D:\mp3\sound\1.wav"
            End If
            music.Controls.play
      End Select
   End If
End Sub上面的无效,不知道什么原因

Answer 3

Dim REPEAT As BooleanPrivate Sub Form_Load()
Timer1.Interval = 100
WindowsMediaPlayer1.settings.autoStart = True
WindowsMediaPlayer1.URL = "D:\My Documents\My Music\音乐\jjy.mp3"
REPEAT = FalseEnd SubPrivate Sub Timer1_Timer()
Static i As Integer
If REPEAT = True Then
i = i + 1
Select Case i
Case 1
WindowsMediaPlayer1.Controls.stop
WindowsMediaPlayer1.URL = "D:\My Documents\My Music\音乐\ws.mp3"
WindowsMediaPlayer1.Controls.play
REPEAT = False
Case 2
WindowsMediaPlayer1.Controls.stop
WindowsMediaPlayer1.URL = "D:\My Documents\My Music\音乐\shanxi.mp3"
WindowsMediaPlayer1.Controls.play
REPEAT = False
Case 3
WindowsMediaPlayer1.Controls.stop
WindowsMediaPlayer1.URL = "D:\My Documents\My Music\音乐\xb.mp3"
WindowsMediaPlayer1.Controls.play
REPEAT = False
i = 0
End Select
End If
End SubPrivate Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If NewState = 8 Then
REPEAT = True
End If
End Sub

Answer 4

暂时说不清,只是在WindowsMediaPlayer1_PlayStateChange事件搞不成,就试想别的方法,改过就通过了,从开始写好,到现在,我的那几首歌曲已经轮播了好多遍了,好着来,现在还在放

Answer 5

还想请问下!!刚忘了msdxm.ocx 那事件也一样用不了?

Answer 6

我用的也是WMP.dll,机子上没有 msdxm.ocx,试不成

Answer 7

如果不知道要播放多少首歌，那SELECT语句就不能用，怎么办？