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