使用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文件。
上一篇： VB中播放三维动画编程一例
下一篇： 用API函数Mcisendstring直接播放背景音乐
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
