在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() 
　　　 If i>0 Then 
　　　 　   AuxTest=True '如果有声卡则返回真 
　　　 　   Exit Function 
　　　 Else 
　　　 　   AuxTest=False '如果未检测到声卡则返回假 
　　　 　   Exit Function 
　　　 End If 
　　End Function 

2.播放CD的源代码 
　　Sub PlayCD(b As Integer) 
　　'b为所播的音轨号 
　　　 Dim a As Long 
　　　 a=mciSendString("open cdaudio alias cd wait",0＆,0,0)`初始化驱动
　　　 a=mciSendString("set cd time format tmsf",0＆,0,0) 
　　　 a=mciSendString("play cd from"＆ Str(b),0＆,00) '播放音轨 
　　End Sub 

3.播放AVI的源代码 
　　Sub playAVI(AVIFile As String) 
　　　 Dim RVal as Long 
　　　 AVIFile="play"＋AVIFile＋"fullscreen" '全屏幕播放AVI文件 
　　　 RVal=mciSendString(AVIFile,0＆,0,0＆) 
　　End Sub 

4.播放WAV的源代码 
　　Sub playWAV(WAVFile As String) 
　　　 Dim Flag as Integer 
　　　 Dim a as Integer 
　　　 wFlag=SND_ASYNC or SND_NODEFAULT 
　　　 a=sndPlaySound(WAVFile,Flag) 
　　End Sub