VB 循环播放视频文件

简介: <strong><span style="font-size:18px">用到的控件:commondialog,timer,windows media player</span></strong> <p><span style="font-size:18px">       private sub form_load()</span></p> <p><span style="font-
用到的控件: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

相关文章
|
关系型数据库 MySQL Serverless
探索PolarDB MySQL版:Serverless数据库的灵活性与性能
本文介绍了个人开发者对阿里云PolarDB MySQL版,特别是其Serverless特性的详细评测体验。评测涵盖了产品初体验、性能观测、Serverless特性深度评测及成本效益分析等方面。尽管试用过程中遇到一些小问题,但总体而言,PolarDB MySQL版表现出色,提供了高性能、高可用性和灵活的资源管理,是个人开发者和企业用户的优秀选择。
|
10月前
|
JSON 数据挖掘 API
如何使用PHP开发1688商品详情API接口
本文详细介绍了如何使用PHP开发1688商品详情API接口,涵盖从注册账号、申请权限、配置环境到代码实现的全过程。通过设置请求头、参数及生成签名,利用cURL或GuzzleHttp库发送请求并处理响应,最终实现商品详情数据的获取与应用,助力电商发展。
121 1
|
10月前
|
编解码 前端开发 JavaScript
跨平台兼容性
【10月更文挑战第31天】跨平台兼容性
405 2
|
9月前
|
存储 Oracle 固态存储
阿里云服务器ESSD云盘性能级别详解
存储性能对于应用的运行效率和用户体验至关重要,阿里云作为领先的云服务提供商,为用户提供了多种存储解决方案,其中ESSD云盘以其高性能和灵活性备受关注。本文将详细介绍阿里云服务器ESSD云盘的四种性能级别——PL0、PL1、PL2和PL3,以及它们各自的单盘IOPS性能上限和容量大小等关键信息,帮助您更好地选择适合自身需求的存储方案。
|
11月前
|
算法 程序员
程序设计的五个步骤
程序的设计过程,并不是立刻就进行代码设计,一般来讲包括设置文件的存放位置、说明书的设计、代码设计、程序测试、程序调试、注释说明。
821 6
|
11月前
|
自然语言处理 安全
ChatGPT高效提问—prompt常见用法(续篇七)
ChatGPT高效提问—prompt常见用法(续篇七)
183 1
|
11月前
|
机器学习/深度学习 人工智能 搜索推荐
未来的人工智能技术有哪些发展趋势?
【10月更文挑战第16天】未来的人工智能技术有哪些发展趋势?
497 0
|
存储 安全 Linux
|
运维 监控 API
CloudStack 中的IP地址状态解析:Allocated、Reserved与Free
CloudStack 中的IP地址状态解析:Allocated、Reserved与Free
203 9
|
C语言
C语言——字符串大小写互换
C语言——字符串大小写互换
307 0