当前位置：首页 -> 技术开发 -> 程序开发 -> 在VB中用API实现多媒体

在VB中用API实现多媒体

时间： 2021-07-31 作者：daque

在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 　　之上步调是我在挪用多媒介时所常用的模块，你只需将上头的模块在步调市直接挪用即

在VB中用API实现多媒体

相关推荐

推荐下载

热门阅览

最新排行