在VB中用API实现多媒体
秦嘉
在VB中用API实现多媒体主要是调用Windows的mmsystem.dll库。以下为调用API的声明(这些代码放在程序的声明部分中):
1. '播放CD和AVI所需要的声明。
Declare Function mciSendString Lib "MMSYSTEM"(ByVal lpstrCommand _
as String,ByVal lpstrReturnStr as Any,ByVal wRetumLen as Integer, _
ByVal hCallBack as Integer) as Long
'播放WAV所需要的声明
Declare Function sndPlaySound Lib "MMSYSTEM.DLL"(ByVal lpszSoundName _
as String,ByVal wF1ags as Integer) as Integer
'检测声卡所需要的声明
Declare Function auxGetNaumDevs Lib "MMSYSTEM"()as Integer
'所用到的全局变量声明
Global Const SND_SYNC=&H0000 '播放WAV用到的全局变量
Global Const SND_ASYNC=&H0001 '播放WAV用到的全局变量
Global Const SND_NODEFAULT=&H0002 '播放WAV用到的全局变量
Global Const SND_LOOP=&H0008 '播放WAV用到的全局变量
Global Const SND_NOSTOP=&H0010 '播放WAV用到的全局变量
'接下来是调用这些声明
Function auxTest()as Boolean
Dim i As Integer
i=auxGetNumDevs()
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余2页未读,立即下载