平码公式规律出肖|平码可以买3个平码吗

VBGood網站全文搜索 Google

搜索VBGood全站網頁(全文搜索)
首頁 - 經驗之談 - 用API實現多媒體
發表評論(0)作者:, 平臺:, 閱讀:13673, 日期:2000-03-12


在VB中用API實現多媒體

作者:秦嘉

  在VB中用API實現多媒體主要是調用Windows的mmsystem.dll庫。

以下為調用API的聲明(這些代碼放在程序的聲明部分中):



1.′播放CD和AVI所需要的聲明。

  Declare Function mciSendString Lib ″MMSYSTEM″(ByVal

lpstrCommand as String,ByVal lpstrReturnStr as Any,By

Val 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

  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

  以上程序是我在調用多媒體時所常用的模塊,你只需將上面的模塊在程序中直接調用即可。

- Taylor

平码公式规律出肖 今天山西快乐十分走 快三开奖结果江苏 重庆快乐10分走势图快 陕西的十一选五走势 飞艇345678真的 快乐赛车app注册平台 今日股票推荐网黄岩中学徐秉龙陈瑞 日本股票涨跌幅限制 专业股票配资平台有哪些 巨牛盈