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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!