"mciSendStrin,標題:播放 AVI" /> 播放 AVI - 關于VB的經驗之談 - VB愛好者樂園(VBGood) - 關于VB的經驗,電子教程,代碼,控件,論壇,博客,微博等. 平码公式规律出肖|平码可以买3个平码吗

VBGood網站全文搜索 Google

搜索VBGood全站網頁(全文搜索)
首頁 - 經驗之談 - 播放 AVI
發表評論(0)作者:, 平臺:, 閱讀:13909, 日期:2000-03-12
播放 AVI

聲明:

Declare Function mciSendString Lib "winmm.dll" Alias _

"mciSendStringA" (ByVal lpstrCommand As String, ByVal _

lpstrReturnString As String, ByVal uReturnLength _

As Long, ByVal hwndCallback As Long) As Long

代碼:

Dim returnstring As String

FileName As String

returnstring = Space(127)

FileName = "C:\A1.avi"

erg = mciSendString("open " & Chr$(34) & FileName & _

Chr$(34) & " type avivideo alias video", returnstring, _

127, 0)

erg = mciSendString("set video time format ms", _

returnstring, 127, 0)

erg = mciSendString("play video from 0", returnstring, _

127, 0)

'記著關閉!

erg = mciSendString("close video", returnstring, 127, 0)
平码公式规律出肖 四川麻将教程 山西十一选五任三遗 微信赛车群 价值投资股票推荐 大众麻将规则胡图解 江苏十一选五奖结果 股票推荐分析APp 广东真人麻将 欧冠足球价格 智操盘