Question

用VB编提示音

想用VB做一个加分的小程序,就是点击加分按钮时右边文本框里的数值加1,而且发出提示音(最好用自己录制的提示音)
如下图:加分功能已实现,就是提示音还不会做,求高人帮忙!

Answer 1

一、把你的提示音用转换器转化为wav格式，提示音文件不可太大，否则可能无法播放，控制在几Kb以内！
二、把wav格式的声音做成vb资源文件
三、用如下代码
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long'API声明要放在程序代码最顶上
Private Sub Command2_Click()
Dim B() As Byte
B = LoadResData(101, "CUSTOM")
sndPlaySound B(0), &H4 '播放内存里的声音，&H8 ' 循环播放，&H1 ' 异步播放
End Sub