A way of keeping track of the activemovie position! verry useful for vb mp3 players

by Steven Bailey (Cyrix) (2 Submissions)
Category: Sound/MP3
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 15^th January 2000
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate A way of keeping track of the activemovie position! verry useful for vb mp3 players



'#              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

Download this snippet Add to My Saved Code

A way of keeping track of the activemovie position! verry useful for vb mp3 players Comments

No comments have been posted about A way of keeping track of the activemovie position! verry useful for vb mp3 players. Why not be the first to post a comment about 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 Comments

Post your comment

Difficulty