满屏播放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文件。->