VB 循环播放视频文件
发布时间:2020-12-17 08:12:59 所属栏目:百科 来源:网络整理
导读:用到的控件: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 end If
private sub timer_timer() If myplayer.playstate = 1 then '每500ms判断一次音频文件是否播放完毕, myplayer.controls.play end If end sub (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |