- Home
·
- Sound/MP3
·
- A way of keeping track of the activemovie position! verry useful for vb mp3 players
A way of keeping track of the activemovie position! verry useful for vb mp3 players
A way of keeping track of the activemovie position! verry useful for vb mp3 players
Rate A way of keeping track of the activemovie position! verry useful for vb mp3 players
(2(2 Vote))
'# 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:\Mp3\Test1.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
A way of keeping track of the activemovie position! verry useful for vb mp3 players Comments
No comments yet — be the first to post one!
Post a Comment