Code: Select all
Private gPlayer As New MediaPlayer
Public Sub Form_Open()
gPlayer.URL = User.Home &/ "a.mp3"
End
Public Sub Button1_Click()
Print gPlayer.State;; gPlayer.Length
gPlayer.Play()
End
v 3.11.4
Code: Select all
Private gPlayer As New MediaPlayer
Public Sub Form_Open()
gPlayer.URL = User.Home &/ "a.mp3"
End
Public Sub Button1_Click()
Print gPlayer.State;; gPlayer.Length
gPlayer.Play()
End
Private gPlayer As New MediaPlayer
Public Sub Main()
gPlayer.URL = Media.URL(User.Home &/ "a.mp3")
gPlayer.Play()
Print Date(0, 0, 0, 0, 0, 0, gPlayer.Length * 1000)
Repeat
Write "\r" & CStr(Date(0, 0, 0, 0, 0, 0, gPlayer.Position * 1000))
Wait 0.001
Until gPlayer.Position >= gPlayer.Length
gPlayer.Close
End