VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 满屏播放AVI文件
发表评论(0)作者:, 平台:, 阅读:10311, 日期:2000-03-12
满屏播放AVI文件


在Windows系统中,满屏播放AVI文件同在窗口中播放AVI文件是不同的,

在满屏播放的时候不需要屏幕上的颜色进行抖动,只需要将调色板设置

为AVI文件所独有的就可以了,这是因为没有其它的窗口在背景中存在

的缘故。

使用Windows 应用程序编程接口(API)的mciSendString函数可以实现

对AVI文件的播放。

样例程序

下面的样例程序将满屏播放位于C盘根目录下的test.avi文件。你可以

将你的Windows 95 CDROM中的某些AVI文件改名并拷贝到C盘根目录下以

播放它。


1.在Visual Basic中开始一个新的项目,采用缺省的方法建立Form1。


2.将如下的声明语句添加到Form1的通用声明部分中(注意每个声明语句

?需要被书写在一行内):

Private Declare Function mciSendString Lib "winmm.dll" Alias _

"mciSendStringA" (ByVal lpstrCommand As String, ByVal _

lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _

hwndCallback As Long) As Long


3.在Form1上添加一个命令按钮控件,采用缺省的方法建立Command1。

将它的Caption属性设置为“播放文件”。


4.将如下的代码添加到Command1的单击事件中:


Private Sub Command1_Click()

CmdStr$ = "play c:\test.avi fullscreen "

ReturnVal& = mciSendString(CmdStr$, 0&, 0, 0&)

End Sub


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

播放AVI文件。