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

滿屏播放AVI文件

編輯:VB綜合教程
在Windows系統中,滿屏播放AVI文件同在窗口中播放AVI文件是不同的,在滿屏播放的時候不需要屏幕上的顏色進行抖動,只需要將調色板設置為AVI文件所獨有的就可以了,這是因為沒有其它的窗口在背景中存在的緣故。
  使用Windows應用程序編程接口(API)的mciSendString函數可以實現對AVI文件的播放。
  樣例程序
  下面的樣例程序將滿屏播放位於C盤根目錄下的test.avi文件。你可以將你的Windows95CDROM中的某些AVI文件改名並拷貝到C盤根目錄下以播放它。
  
  1.在VisualBasic中開始一個新的項目,采用缺省的方法建立Form1。
  
  2.將如下的聲明語句添加到Form1的通用聲明部分中(注意每個聲明語句?需要被書寫在一行內):
  PrivateDeclareFunctionmciSendStringLib"winmm.dll"Alias_
  "mciSendStringA"(ByVallpstrCommandAsString,ByVal_
  lpstrReturnStringAsAny,ByValuReturnLengthAsLong,ByVal_
  hwndCallbackAsLong)AsLong
  
  3.在Form1上添加一個命令按鈕控件,采用缺省的方法建立Command1。將它的Caption屬性設置為“播放文件”。
  
  4.將如下的代碼添加到Command1的單擊事件中:
  
  PrivateSubCommand1_Click()
  CmdStr$="playc: est.avifullscreen"
  ReturnVal&=mciSendString(CmdStr$,0&,0,0&)
  EndSub
  
  通過按下F5鍵來執行樣例程序。單擊播放命令按鈕,可以在滿屏方式下播放AVI文件。->

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