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