Question

VB windowsmediaplayer 怎样自定义下一首按钮，比如实现点击按钮就随机选择listbox中的一首歌播放

Answer 1

Private Sub Form_Load()
Dim rndList As Integer
Dim strName As String
If List1.ListCount > 0 Then
rndList = RandId(List1.ListCount) '随机读取ListBox 一条记录索引号
strName = List1.List(rndList) '随机返回 ListBox 列表中的歌曲名
'然后用WindowsMediaPlayer1 播放 strName 就可以了
End If
End Sub

Private Function RandId(ByVal MyListIndex As Integer) As Integer
Randomize
RandId = Int(Rnd * MyListIndex)
End Function

追问

点击下一首要能随机播放一首，而不是窗体启动时随机播放。

追答

您把代码放在 Command1_Click 里面不就得了！

追问

使用的是控件原来就有的那个下一首按钮！

追答

WindowsMediaPlayer 控件自带的播放控制按键是内置的，并无Click事件，所以无法对相应的按键编程，您只能自己编写播放控制，如：播放/暂停、停止、上一个、下一个、快进、快退以及音量控制，例如：
先设置 WindowsMediaPlayer1.uiMode = "None"

Private Sub DownPlay_Click() '单击按钮（播放下一个）
Dim RndList As Integer
Dim RndFileName As Strint

If List1.ListCount > 0 Then
WindowsMediaPlayer1.Controls.pause '暂停
WindowsMediaPlayer1.Controls.stop '停止
RndList = RandId(List1.ListCount) '随机读取ListBox 一条记录索引号
RndFileName = List1.List(RndList) '随机返回 ListBox 列表中的歌曲名
WindowsMediaPlayer1.URL = RndFileName '加载播放文件（完整的路径文件）
WindowsMediaPlayer1.Controls.play '播放
End If

End Sub

Private Function RandId(ByVal MyListIndex As Integer) As Integer
Randomize
RandId = Int(Rnd * MyListIndex)
End Function

Answer 2

Private Sub Command1_Click()
WindowsMediaPlayer1.stretchToFit = True
WindowsMediaPlayer1.URL = List1.ListIndex
End Sub

追问

我使用的是wmp控件原来就有的下一首按钮，但是我想要改变它的功能。

追答

问题描述不清楚

追问

wmp控件添加后不是就有界面的吗？播放、停止、上一首、下一首按钮，音量调节，进度条，文件信息，都已经有了，但能否做到点击后随机选择歌曲播放。

追答

WindowsMediaPlayer1.URL = List1.List(i)
i设置成随机整数，数值在0-List.ListCount之间

追问

但是下一首按钮的方法不是由wmp决定的吗？我在哪里可以修改它呢？那一句WindowsMediaPlayer1.URL = List1.List(i)放在那里？

追答

你用timer监视是否播放完毕再随机找一首

追问

有时候一首未播放完，但是我想点击按钮使其播放下一首。一首播放完后随机播放下一首的功能我已实现。