利用API播放AVI
声明： DeclareFunctionmciSendStringLib"winmm.dll"Alias"mciSendStringA"(ByVallpstrCommandAsString,ByVallpstrReturnStringAsString,ByValuReturnLength AsLong,ByValhwndCallbackAsLong)AsLong 代码： DimreturnstringAsString FileNameAsString re
声明：
DeclareFunctionmciSendStringLib"winmm.dll"Alias"mciSendStringA"(ByVallpstrCommandAsString,ByVallpstrReturnStringAsString,ByValuReturnLength
AsLong,ByValhwndCallbackAsLong)AsLong
代码：
DimreturnstringAsString
FileNameAsString
returnstring=Space(127)
FileName="C:A1.avi"
erg=mciSendString("open"&Chr$(34)&FileName&Chr$(34)&"typeavivideoaliasvideo",returnstring,127,0)
erg=mciSendString("setvideotimeformatms",returnstring,127,0)
erg=mciSendString("playvideofrom0",returnstring,127,0)
'记着关闭！
erg=mciSendString("closevideo",returnstring,127,0)->
DeclareFunctionmciSendStringLib"winmm.dll"Alias"mciSendStringA"(ByVallpstrCommandAsString,ByVallpstrReturnStringAsString,ByValuReturnLength
AsLong,ByValhwndCallbackAsLong)AsLong
代码：
DimreturnstringAsString
FileNameAsString
returnstring=Space(127)
FileName="C:A1.avi"
erg=mciSendString("open"&Chr$(34)&FileName&Chr$(34)&"typeavivideoaliasvideo",returnstring,127,0)
erg=mciSendString("setvideotimeformatms",returnstring,127,0)
erg=mciSendString("playvideofrom0",returnstring,127,0)
'记着关闭！
erg=mciSendString("closevideo",returnstring,127,0)->
- 上一篇：在VB应用程序中恰当的使用声音
- 下一篇：播放资源文件文件中的声音
精彩图集
精彩文章