首页 > > 程序设计 > VB >

如何满屏播放AVI文件

2018-06-17 17:13:36来源：未知阅读 ()

在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:\test.avifullscreen"
ReturnVal&=mciSendString(CmdStr$,0&,0,0&)
EndSub

通过按下F5键来执行样例程序。单击播放命令按钮，可以在满屏方式下
播放AVI文件。->

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有