VB工程--百例84--播放视频AVI文件.

Option Explicit

Private Sub Command1_Click()

        mci1.Command = "close"  '关闭mci1不可见
        mci1.Notify = False '不产生一个回调事件
        mci1.Wait = True '必须等到下一个MCI命令完成才能将控件返回应用程序
        mci1.Command = "open"  '打开mcil1设备
        mci1.Notify = True '产生一个回调事件
        'mci1.FileName =app.path&"\ clock.avi       调入AVI视频
        mci1.Wait = False '不必等到下移个MCI命令完成将控件返回应用程序
        mci1.Command = "play"        '播放
End Sub

Private Sub Command2_Click()

        End

End Sub

Private Sub Form_Load()

        mci1.Visible = False  '多媒体体mci1不可见
        mci1.Notify = True '产生一个回调事件
        mci1.Shareable = False '其他控件不能访问这台设备
        mci1.TimeFormat = 0    '用秒表报告信息的时间格式
       

End Sub