3行代码播放wav 'API声明 Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _ (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long .................
VB6.0常用基本函数库,共有27个,如你正在学习VB开发,也许用得到,建议下载收藏。 部分源代码示例: On Top Sub Declaration Public Declare Sub SetWindowPos Lib _ "user32" (ByVal hWnd _ As Integer, ByVal hWndInsertAfter As Integer, _ ByVal X As Integer, ByVal Y As Integer, _ ByVal cx As Integer,
Dim h As Integer, m As Integer, n As Integer
bArr = LoadResData(118, "CUSTOM") '播放"叮咚"
sndPlaySound bArr(0), SND_MEMORY Or SND_SYNC
bArr = LoadResData(116, "CUSTOM") '播放"现在时间是"
sndPlaySound bArr(0), SND_MEMO