Question

VB6.0 WindowsMediaPlayer1自动播放下一首

Private Sub Command8_Click()
CommonDialog1.MaxFileSize = 32767
CommonDialog1.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer '多选
CommonDialog1.Filter = "mp3文件(*.mp3)|*.mp3|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen '显示打开对话框
a = Split(CommonDialog1.FileName, Chr(0))
For i = IIf(UBound(a) > 0, 1, 0) To UBound(a)
List1.AddItem a(i)
Next i
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub Command1_Click()
WindowsMediaPlayer1.Controls.pause
End Sub
Private Sub Command2_Click()
WindowsMediaPlayer1.URL = Text2.Text
End Sub
Private Sub Command3_Click()
WindowsMediaPlayer1.URL = Text1.Text
End Sub
Private Sub Command4_Click()
WindowsMediaPlayer1.Controls.play
End Sub
Private Sub Command5_Click()
WindowsMediaPlayer1.Close
End Sub
Private Sub Command6_Click()
Form2.Timer1.Enabled = True
Form1.Hide
Form2.Show
End Sub
Private Sub Command7_Click()
End
End Sub
Private Sub Form_Load()
App.TaskVisible = False
Form2.Timer1.Enabled = False
Form3.Show
End Sub
Private Sub Timer10_Timer()
Label1.Caption = WindowsMediaPlayer1.Controls.currentPositionString
WindowsMediaPlayer1.settings.volume = Slider2.SelStart
Slider1 = WindowsMediaPlayer1.Controls.currentPosition
End Sub
Public Sub List1_DblClick()
Timer10.Enabled = True
WindowsMediaPlayer1.URL = pa & List1.Text
End Sub
我就是想让他播放完后自动下一首播放!一直播放到最后一首,完跳到第一首
这个怎么实现啊! 我在网上都找变了~一个都不能用!有的我都看不懂!小弟是初学者请多多指教!
最后在说个事~ProgressBar1 这个控件~ 怎么跟WindowsMediaPlayer1 的进度条同步啊!
1楼你好 我的播放列表表是用List1做的

Answer 1

不知道你的播放列表是用的wmp内置的，还是自己外部的播放列表。
如果有需要请发消息或加QQ。