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、保存并运行程序。

如果不行的话写你的邮箱，我发给你