问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

VB 使用WMP.DLL控件做播放器,让进度时间以帧来显示,1秒=25帧

发布网友 发布时间:2024-10-02 18:50

我来回答

1个回答

热心网友 时间:2024-11-08 23:37

[此回答已修改]
具体:
1、新建一个工程。
2、右击控件工具栏,选择部件。
3、勾选Windows Media Player选项,并单击确定。
4、在窗体上画一个Win Media Player,将其的名称改为player1。
5、在player1的属性窗口中找到URL属性。
6、将该属性的文本框中输入任意影音文件路径。
7、在窗体上画一个标签,使用其默认名称Label1。
8、在窗体上画两个Timer控件。使用默认名称。
9、将Timer1的Interval属性的值设置为1。
10、将Timer2的Interval属性的值设置为60000。
11、输入以下代码:
╔════════════════════════════════╗
Private Sub Timer1_Timer()
Dim i
i = player1.Controls.currentPosition
Label1.Caption = i
Label1.Caption = Right(i, 2) / 25 + 25.5 * 2 / 2 * Left(i, 2)
End Sub

Private Sub Timer2_Timer()
Timer1.Enabled = False
player1.Controls.pause
End Sub
╚════════════════════════════════╝
12、保存并运行程序。

如果不行的话写你的邮箱,我发给你
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
苹果手机微信怎么换漂亮字体(苹果手机微信怎么换行输入) 有什么好用的app转换字体 手写转文字的软件 erp可以看评论地址吗 淘宝评论url是什么意思? 揭秘:码牌支付风控升级,背后真相揭秘 电脑电视直播软件哪个好用什么软件好电脑看电视直播 潼南子同街学区是哪些 三极管BU406价格和参数? 火锅料放在冰柜忘了插电一个星期给会坏了吗 火锅的设备有哪些 ...微信号加我,为什么她知道我微信号呢,我也没有告诉谁,求解_百度... 满清十大酷刑都是什么 公共厕所的卫生标准是什么? 请问大二出国可以只在国外呆两年或是一年吗? 公共卫生间的设计规范是怎样的? 交换生一学期的签证可以在外国呆多久?6个月有吗 qq飞车用什么道具能开出飞虎王 怎么委婉的拒绝男生想发生关系的要求 交换生换几年 关于交换生及费用的问题!急!求帮助!顺便交朋友! 如何婉拒男生的暧昧邀请? 哪些人员考公需要单位同意报考证明 QQ飞车飞虎王怎么开介绍_QQ飞车飞虎王怎么开是什么 请问一下交换生一般交换多久 怎么回复想和我上床的男生? 怎样回复男生想和你发生关系的信息呢? 女生该如何正确拒绝男生? 辽宁省沈阳市法库县丁家房镇丁家房村邮编是什么? 丁家房镇的行政区划 丁家房镇社会事业 如何用VB编写一个播放器? 人参泡酒开花了 教你自制长寿祛病药酒 QQ飞车什宠物经验加得最多,要多少钱 已知△ABC中,∠ACB=90°(如图8),点P到∠ACB两边的距离相等,且PA=PB... qq飞车开什么东西能得到绝版宠物? 安卓系统的app,我需要它一直在后台运行,我该怎么加锁才可以关闭其 ...现在成绩2分30左右,求提高成绩训练方法。(还剩3周开运动会)。_百度... 用海蛎可以做出哪些好吃的美食? 牡蛎可以做出什么创意美食? 制作牡蛎炒鸡蛋的方法有哪些? 牡蛎适合做什么家常美食? 牡蛎有哪些家常的做法? 孩子考上大学时,包多少红包合适 孩子上大学红包多少合适呢? 大学红包一般给多少钱? 孩子上大学给多少红包合适呢? 荣耀10屏幕乱跳解决方法 龙之谷39级怎么快速升到40级,现在65%经验了 龙之谷39级到40级刷什么升级最快?一天能升到吗? 龙之谷:32级到40怎么升级超快,没有稳定人带。装备选随机打到的还是做...