• 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

• 1
• 2
• 3
• 4
• 5

(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