程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB綜合教程 >> 利用API播放AVI

利用API播放AVI

編輯:VB綜合教程
聲明:
  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)->

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved