VB windowsmediaplayer 怎样自定义下一首按钮,比如实现点击按钮就随机...

发布网友发布时间：2024-10-24 00:15

共2个回答

热心网友时间：2分钟前

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

热心网友时间：4分钟前

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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com