资质合作:各位前辈,救救小弟!如何在VB中添加背景音乐??

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/29 13:09:58
谢谢!!

'//申明API
Declare Function sndPlaySound Lib 〃MMSYSTEM.DLL〃(ByVal
lpszSoundName as String,ByVal wF1ags as Integer) as Integer

'//自定意个播放涵数
Sub playWAV(WAVFile As String)
Dim Flag as Integer
Dim a as Integer
wFlag=&H8
a=sndPlaySound(WAVFile,Flag)
End Sub

'//播放:

call playWAV("D:\ddd.wav")