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

概述Option Explicit Private Sub Command1_Click()         mci1.Command = "close"  '关闭mci1不可见         mci1.Notify = False '不产生一个回调事件         mci1.Wait = True '必须等到下一个MCI命令完成才能将控件返回应用程序         mci1.Command

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

总结

以上是内存溢出为你收集整理的VB工程--百例84--播放视频AVI文件.全部内容，希望文章能够帮你解决VB工程--百例84--播放视频AVI文件.所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。