|
| 当前位置：英文资料 >> Multimedia |
|
A way of keeping track of the activemovie position! verry useful for vb mp3 players
|
|
| 资料类型： Multimedia |
|
上传时间： 2001-02-21 |
|
阅读次数： 1434 |
|
|
'#####################################################
'# Active Movie Tracker #
'#####################################################
'# use "Call tposition" to enable code. #
'# and change code accordingly #
'#####################################################
'# Code By: Steven Bailey (CyriX) #
'#####################################################
'The filename is not really needed as it is only to test the code works
Private Sub TPosition()
'Call TPosition
ActiveMovie1.FileName = "C:Mp3Test1.Mp3"
On Error GoTo 10000
ActiveMovie1.Run
Timer1.Interval = 1000
Shape1.Width = 2400
10000
End Sub
'Timer1 should have an intervall of 1000 for every second
Private Sub Timer1_Timer()
Label1.Caption = ActiveMovie1.Duration - ActiveMovie1.CurrentPosition
Shape1.Width = Shape1.Width - 3.4
End Sub
|
|
|
|
|
|
|
|
