sndPlaySound API函数可以播放byte类型的数组,你只要向它提供该数组的地址即可,如定义 wav() As Byte
可以用wav作为参数。
可以用wav作为参数。
解决方案 »
- vb+access合并字段
- vb中如何判断 当前打开了哪些windows窗口 并关闭之?比如 我当前打开了"C:\123"和"D:\456"两个windows窗口,怎么判断他们已经打开,并关闭他们?
- vb 不能执行 存储过程
- 我怎样用WINSOCK发送HEX的数据?
- text控件赋值问题,难道是vb的bug?
- 【★★★ 超NB的小游戏,你有时间话,试试 ★★★】
- 求修改MP3文件(ID3v)信息的代码???
- dim 后面加不加 new有什么区别?比如 Dim mypoint as New PointType
- vba中如何动态修改excel中嵌入式图表的某个系列的数据所选的相关单元格区域?(内有详情)
- 如何call一个dos进程
- 如何能得到ComDialog控件的showprint方法所选择的纸张大小?
- 那有读写jpg的控件?
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Dim Buffer() As BytePrivate Sub Command1_Click()
Open "c:\abc.wav" For Binary Access Read As #1
ReDim Buffer(1 To LOF(1))
Get #1, , Buffer
Close #1
MsgBox "ok"
End SubPrivate Sub Form_Load()
a = sndPlaySound(Buffer(), SND_ASYNC Or SND_NODEFAULT)
End Sub