楼上的同志们说的好象有问题哦。 把Wav放进资源文件后取出来的是二进制的数据,请问用什么数据类型来存放? sndPlaysound函数的声明如下: Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long 请问如何用它来播放二进制的波形数据?
'Form Private Const SND_ASYNC = &H1& Private Const SND_MEMORY = &H4&'播放声音的函数 Private Declare Function sndPlaySoundFromMemory Lib "winmm.dll"_ Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long Private Sub Command1_Click() '"Pentium"、"WAVE":自定义 Dim bArr() As Byte bArr = LoadResData("Pentium", "WAVE")
sndPlaySoundFromMemory bArr(0), SND_MEMORY Or SND_ASYNC End Sub
把Wav放进资源文件后取出来的是二进制的数据,请问用什么数据类型来存放?
sndPlaysound函数的声明如下:
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
请问如何用它来播放二进制的波形数据?
Private Const SND_ASYNC = &H1&
Private Const SND_MEMORY = &H4&'播放声音的函数
Private Declare Function sndPlaySoundFromMemory Lib "winmm.dll"_ Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
Private Sub Command1_Click()
'"Pentium"、"WAVE":自定义
Dim bArr() As Byte
bArr = LoadResData("Pentium", "WAVE")
sndPlaySoundFromMemory bArr(0), SND_MEMORY Or SND_ASYNC
End Sub
http://www.applevb.com/sourcecode/resfile.zip