【实例说明】
    本例将介绍用API满屏播放AVI文件。

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

【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。
    2.在Form1窗体中放置一个CommandBox控件。
    3.在同一级目录下添加一个AVI文件，命名为"1.AVI"。

    4.源程序  [素材源程序下载]


Option Explicit

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
        (ByVal lpstrCommand As String, _
        ByVal lpstrReturnString As String, _
        ByVal uReturnLength As Long, _
        ByVal hwndCallback As Long) As Long

Private Sub Command1_Click()
        Dim Str As String
        Dim ReturnVal As Long
        Dim FileName As String
        FileName = App.Path & "\1.avi"
        '注意Str变量的连接，中间有空格
        Str = "play " & FileName & " fullscreen"
        ReturnVal = mciSendString(Str, 0&, 0, 0&)
End Sub