如何用api及mmsystem.dll播放avi文件_visualbasic教程

Author:GordonF.MacLeod
Howtoplayan.AVIfileusingAPIandtheMMSYSTEM.DLL..
——————————————————————-
Hereshowtoplayan.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&)

ToplaytheAVIfullscreenappendtoCmdStr$:

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