VB 循环播放视频文件

发布时间：2020-12-17 00:16:54 所属栏目：大数据来源：网络整理

导读：用到的控件：commondialog，timer，windows media player private sub form_load() if mydialog1.filename=" " then mystart: mydialog1.showopen '弹出对话框，选择要加载的视频 if mydialog.FileName = "" Then GoTo mystart end If myplayer.URL = mydial

用到的控件：commondialog，timer，windows media player

private sub form_load()

if mydialog1.filename=" " then

mystart: mydialog1.showopen '弹出对话框，选择要加载的视频

if mydialog.FileName = "" Then
GoTo mystart
end If
myplayer.URL = mydialog.filename '

end If
form1.visible = false
timer1.Interval = 500
timer1.enabled = true
end sub

private sub timer_timer()

If myplayer.playstate = 1 then '每500ms判断一次音频文件是否播放完毕， myplayer.controls.play end If end sub

（编辑：李大同）

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