如何用API及MMSYSTEM.DLL播放AVI文件

2018-06-17 17:12:04来源:未知 阅读 ()

新老客户大回馈,云服务器低至5折

'Author:GordonF.MacLeod
'Howtoplayan.AVIfileusingAPIandtheMMSYSTEM.DLL..
'-------------------------------------------------------------------
'Here'showtoplayan.AVIfileviaAPI
'DeclarethisAPI:

DeclareFunctionmciSendString&Lib"MMSYSTEM"(ByValpstrCommand$,
ByVallpstrReturnStrAsAny,ByValwReturnLen,ByValCallBack)

'Addthiscodetotheappropriateevent:

DimCmdStr$
DimReturnVal&

'Modifypathandfilenameasnecessary
CmdStr$="playG:\VFW_CINE\AK1.AVI"
ReturnVal&=mciSendString(CmdStr$,0&,0,0&)

'ToplaytheAVI'fullscreen'appendtoCmdStr$:

CmdStr$="playG:\VFW_CINE\AK1.AVIfullscreen"->

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:VB从零开始编外挂(十一)

下一篇:用VB播放FLASH动画