【VB开源代码栏目提醒】：网学会员在VB开源代码频道为大家收集整理了Ex13_16.frm提供大家参考，希望对大家有所帮助!

    VERSION 5.00
    Object = "{C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0"; "MCI32.OCX"
    Begin VB.Form Ex13_16 
       Caption         =   "Multimedia控件的使用"
       ClientHeight    =   2685
       ClientLeft      =   60
       ClientTop       =   450
       ClientWidth     =   4395
       LinkTopic       =   "Form1"
       ScaleHeight     =   2685
       ScaleWidth      =   4395
       StartUpPosition =   3  '窗口缺省
       Begin MCI.MMControl MMControl1 
          Height          =   615
          Left            =   360
          TabIndex        =   0
          Top             =   1680
          Width           =   3540
          _ExtentX        =   6244
          _ExtentY        =   1085
          _Version        =   393216
          DeviceType      =   ""
          FileName        =   ""
       End
    End
    Attribute VB_Name = "Ex13_16"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub Form_Load()
        With MMControl1
            .Notify = False  '设置在下一条命令完成时不产生一个回调事件（Done）
            .Wait = True   '确定Multimedia控件等到下一条命令执行完后才将控制权还给程序
            .DeviceType = "avivideo" '指定要打开的MCI设备的类型
            .FileName = App.Path & "\SEARCH.AVI " '指定要打开的文件
            .Command = "open"  '启动MCI命令
          End With
    End Sub
    Private Sub Form_Unload(Cancel As Integer)
        MMControl1.Command = "Close" '关闭播放设备
    End Sub