Question

vb里面mediaplayer控件 我用的一个按钮，点击那个按钮就播放下一首怎么弄啊 急那

想用一个command，点击这个按钮就会播放我事先制定好路径下的下一个视频（是avi格式的）

Answer 1

'总得有个活动设置留给用户操作吧,试试下面的行不

Private Sub Command1_Click()
WindowsMediaPlayer1.URL = Text1.Text '在文本框里输入歌曲地址,文本框里的地址不要加引号
End Sub

追问

这个应该不用的，我做的是早教软件，0~3岁小孩子用的 他们不懂这些的

追答

Dim i As Integer '数值变量,用于装载字符串数组
Dim iStr() As String '字符串数组,用于设定列表

Private Sub Command1_Click()
ReDim iStr(1 To 5) 限制为5首歌曲,可以自己修改
iStr(1) = App.Path & "\爱情买卖.mp3"
iStr(2) = App.Path & "\潮湿的心.mp3"
iStr(3) = App.Path & "\荷塘月色.mp3"
iStr(4) = App.Path & "\伤不起.mp3"
iStr(5) = App.Path & "\自由飞翔.mp3" '这里替换成你的媒体文件地址,但不能超过数量限制

If i < 5 Then '循环播放列表
i = i + 1
WindowsMediaPlayer1.URL = iStr(i)
Else
i = 1
WindowsMediaPlayer1.URL = iStr(i)
End If
End Sub

Answer 2

if list1.listindex<0 then list1.listindex=0
i=list1.listindex
if i>=list1.count-1 then i=0
mediaplayer1.url=list1.item(i)
'如果是不是自动播放，播放一下

追问

我不想用list，想用一个command，点击这个按钮就会播放我事先制定好路径下的下一个视频（是avi格式的）

追答

如果从当前的文件名能判断出下一个该播放的是哪个文件也可以