[VB6 ] 請問用VB寫出來的音樂撥放程式
小弟這邊用VB寫出來一個很簡單的音樂撥放程式
Private Sub Timer5_Timer()
If WindowsMediaPlayer1.playState = 0 Or WindowsMediaPlayer1.playState = 1 Then
Select Case con
Case 1
WindowsMediaPlayer1.URL = "C:\111.m3u"
Case 2
WindowsMediaPlayer1.URL = "C:\222.m3u"
Case 3
WindowsMediaPlayer1.URL = "C:\333.m3u"
End Select
End If
End Sub
程式碼裡面出現的m3u是一個音樂列表
假設裡面有1~10首歌
我要如何能夠讓那10首歌隨機撥放
而不是到case1的時候就是放第一首歌,
case2的時候放case2的第二首歌
到時候發生case1的時候又再放case1的第一首歌
我希望可以隨機撥放case裡面的任何一首歌,
請問我該如何寫這個語法呢?
謝謝各位大大~
--
【 19 】佛光普照如達摩再世 真˙背影殺手 (Tten)
狀 態 : 半獸人少林和尚(男性)﹐十八歲﹐正常。
經 驗 : 670171
陣 營 : 一代大俠
狀 況 : 你覺得身體一切正常﹐精神飽滿。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 219.68.58.229
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
