满屏播放AVI文件

IT商界

王敬

　　在Windows系统中，满屏播放AVI文件同在窗口中播放AVI文件是不同的，在满屏播放的时候不需要屏幕上的颜色进行抖动，只需要将调色板设置为AVI文件所独有的就可以了，这是因为没有其他的窗口在背景中存在的缘故。

　　使用Windows 应用程序编程接口(API)的mciSendString函数可以实现对AVI文件的播放。

　　样例程序：

　　下面的样例程序将满屏播放位于C盘根目录下的test.avi文件。你可以将你的某些AVI文件改名并拷贝到C盘根目录下播放它。

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

　　2.将如下的声明语句添加到Form1的通用声明部分中(注意每个声明语句需要书写在一行内)：

　　Private

　　Declare Function mciSendString Lib "win mm.dll" Alias_"mciSendStringA" (ByVal lpstr Command 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文件了。