龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > 软件开发 > VB开发 >

如何满屏播放AVI文件

时间:2009-12-30 15:42来源:未知 作者:admin 点击:
分享到:
在Windows系统中,满屏播放AVI文件同在窗口中播放AVI文件是不同的,在满屏播放的时候不需要屏幕上的颜色进行抖动,只需要将调色板设置为AVI文件所独有的就可以了,这是因为没有其它
在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,ByVallpstrReturnStringAsAny,ByValuReturnLengthAsLong,ByValhwndCallbackAsLong)AsLong
  
  3.在Form1上添加一个命令按钮控件,采用缺省的方法建立Command1。
  将它的Caption属性设置为“播放文件”。
  
  4.将如下的代码添加到Command1的单击事件中:
  
  PrivateSubCommand1_Click()
  CmdStr$="playc: est.avifullscreen"
  ReturnVal&=mciSendString(CmdStr$,0&,0,0&)
  EndSub
  
  通过按下F5键来执行样例程序。单击播放命令按钮,可以在满屏方式下
  播放AVI文件。->

精彩图集

赞助商链接