vb 随机播放音乐文件

发布网友发布时间：2024-10-09 01:40

共2个回答

热心网友时间：2024-11-26 21:11

如果只有这两首音乐的话不妨采用下面的方法
Private Sub Form_Load()
If GetSetting(App.Title, "Settings", "yy") = "1" Then
'此处写播放1.MP3的代码
Else
'此处写播放2.MP3的代码
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
If GetSetting(App.Title, "Settings", "yy") = 1 Then
SaveSetting App.Title, "Settings", "yy", "2"
Else
SaveSetting App.Title, "Settings", "yy", "1"
End If
End Sub

热心网友时间：2024-11-26 21:11

用rnd()函数就行，播放器播放列表中的1项就是list1.list（int（rnd（））），试试吧。追问菜鸟。不懂
有2个文件分别放在根目录下App.Path & "\Sound effect\1.mp3"和2.mp3.
如何随机播放。把代码写给我吧。谢谢

追答Private Sub Command1_Click()
MsgBox App.Path & "\Sound effect\" & Int(Rnd() * 2 + 1) & ".mp3"
End Sub