VB VLC toolbar not displaying playing time and total length
Posted: 15 Jun 2016 12:22
Helllo,
We are now using VLC ActiveX in our app here at work and an user told me he could not see the playing time and total length of video in the default toolbar that is shown when mousing over.
Is there a way this is displayed by default or has it to be coded and be displayed in another place like a label or text box?
Thanks a lot
This is the code I use in VB6:
sFichReprod = "FILE:///" & sNombreFichero
mpbideoa.Playlist.Add (sFichReprod)
mpbideoa.Playlist.play
Private Sub msCrearCompVLC()
If Not mpbideoa Is Nothing Then
Set mpbideoa = Nothing
End If
If Not vlcControl Is Nothing Then
Set vlcControl = Nothing
End If
On Error Resume Next
Controls.Remove "vlcControl"
Set vlcControl = Controls.Add("VideoLAN.VLCPlugin.2", "vlcControl", frmBideo_Baja_Resolucion)
vlcControl.Top = 450
vlcControl.Left = 60
vlcControl.Height = 3765
vlcControl.Width = 4155
vlcControl.Visible = True
vlcControl.ToolBar = True
Set mpbideoa = vlcControl.object
End Sub
We are now using VLC ActiveX in our app here at work and an user told me he could not see the playing time and total length of video in the default toolbar that is shown when mousing over.
Is there a way this is displayed by default or has it to be coded and be displayed in another place like a label or text box?
Thanks a lot
This is the code I use in VB6:
sFichReprod = "FILE:///" & sNombreFichero
mpbideoa.Playlist.Add (sFichReprod)
mpbideoa.Playlist.play
Private Sub msCrearCompVLC()
If Not mpbideoa Is Nothing Then
Set mpbideoa = Nothing
End If
If Not vlcControl Is Nothing Then
Set vlcControl = Nothing
End If
On Error Resume Next
Controls.Remove "vlcControl"
Set vlcControl = Controls.Add("VideoLAN.VLCPlugin.2", "vlcControl", frmBideo_Baja_Resolucion)
vlcControl.Top = 450
vlcControl.Left = 60
vlcControl.Height = 3765
vlcControl.Width = 4155
vlcControl.Visible = True
vlcControl.ToolBar = True
Set mpbideoa = vlcControl.object
End Sub