满屏方式下播放AVI文件

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文件。