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

【编程思路】
    VB程序中播放AVI文件有很多种方法，现在介绍的是调用API函数来播放AVI文件。

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

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


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 Form_Click()
        Dim returnstring As String
        Dim Erg As Long
        Dim FileName As String

        returnstring = Space(127)

        FileName = App.Path & "\1.avi"

        Erg = mciSendString("open " & Chr$(34) & FileName & Chr$(34) & _
                " type avivideo alias video", returnstring, 127, 0)
        Erg = mciSendString("set video time format ms", returnstring, 127, 0)
        Erg = mciSendString("play video from 0", returnstring, 127, 0)
End Sub