vb怎么循环播放音乐！麻烦高手了！

来源：百度知道 编辑：UC知道 时间：2024/06/18 10:26:00
我有段代码，但只播放一遍！能不能改成每1小时播放音乐！！如我有1.wav 2.wav 3.wav 4.wav 5.wav 我要它每一小时播放一个循环这样~~~高手帮帮忙了！！最好直接给个完整代码
或帮我改下代码：
Private Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Const SND_ASYNC = &H1 ' play asynchronously
Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound

Private Sub Form_Load()
sndPlaySound32 "e:\hellowin.wav", SND_ASYNC And SND_LOOP '
End Sub
ARTERIOSCLEROS你好！！你这样只可以播放一种哥呀！！如我有1.wav 2.wav 3.wav 4.wav 5.wav 我要它每一小时播放一个；循环这样。
ARTERIOSCLEROS你好！！是有用！呵呵 它只认数字 我上面是打比喻！如果我歌是各种 “中文.wav"都是中文的！！怎么让它随机每小时播放一个吗？麻烦大哥了！
你QQ多少！我还有多个难问题请教你！我愿出Q币酬谢！

能帮我搞随机循环吗！！大哥帮帮我呀！！急要的

二次补充：中文的，那不能用循环了……你试试这个代码吧。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Dim i As Integer
Private Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Const SND_ASYNC = &H1 ' play asynchronously
Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound

Private Sub Form_Load()
Timer1.Interval = 60000
Dir "e:\*.wav"
End Sub

Private Sub Timer1_Timer()
If i = 60 Then '这里的60是分钟数
j = j + 1
sndPlaySound32 Dir(), SND_ASYNC And SND_LOOP
i = 0
Else
i = i + 1
End If
End Sub
我哪里有QQ啊，有了的话我还在百度干啥啊！呵呵。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
答案补充：没错吧，j变量分管放歌，每一个小时j都自增1，放下一首歌。你再试一试，是不是没有等到下一个间隔时间？
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
再建一个Timer1,代码如下。你调试的时候可以把1小时改成1分钟以便快速观察效果，也就是改改我给你注释的那个地方。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Dim i As Integer, j As Integer
Private Declare Function sndPlaySound32 Lib "winm