资质合作:各位前辈,救救小弟!如何在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")