如何自动循环播放背景音乐,音乐文件在资源文件中(alarm,WAVE)

Question

有什么办法让窗体一打开就自动播放资源文件中的声音?并不停的循环播放资源文件+timer.res
          +"WAVE"
             "ALARM"

Answer 1

用playsound函数
Option Explicit
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As LongPrivate Const SND_LOOP = &H8         '  loop the sound until next sndPlaySound
Private Const SND_ASYNC = &H1         '  play asynchronouslyPrivate Sub Form_Load()
    PlaySound "d:\Message.WAV", 0, SND_LOOP + SND_ASYNC
End SubPrivate Sub Form_Unload(Cancel As Integer)
    PlaySound 0, 0, 0
End Sub

Answer 2

我用d:\Message.wav的时候是噔噔的，但我换个别的波形文件就不是了，Message.wav这个文件就这个样，用播放器打开也是有噔噔的声音的。你再尝试一下

Answer 3

我用的是资源文件里WAVE下的ALARM没编译运行的时候可以,编译后就可以了..

Answer 4

要是资源文件中的就在strPath中写资源文件，在声明部分加Private Const SND_FILENAME = &H20000     '  name is a file name
在函数...SND_LOOP   +   SND_ASYNC+ SND_FILENAME 
看看行没