Override default cursor move behaviour

FetterDoubt · Postby **FetterDoubt** » 26 Jun 2015 08:59

I'm using the ActiveX component in classic VB6 and it is working very well as a wrapped User Control (see code below).

Is there a way to disable/override/control the cursor disappearing when I video is playing?
Also, is there a way to disable/override/control the video control panel from appearing when the cursor moves during video playback?

Code: Select all

Private strPlaylistURL As String

Public WithEvents vmpPreview As VBControlExtender

Private Sub UserControl_Initialize()
    Set vmpPreview = Controls.Add("VideoLan.VLCPlugin.2", "vmpPreview")
    vmpPreview.Visible = True
End Sub

Private Sub UserControl_Resize()
    With vmpPreview
        .Top = 0
        .Left = 0
        .Width = Width
        .Height = Height
        .ZOrder 1
    End With
End Sub

Public Sub PlaylistPlay(strURL As String)
    strPlaylistURL = strURL
    With vmpPreview.object
        .Playlist.Items.Clear
        .Playlist.Add "file:///" + strURL
        .Playlist.play
    End With
End Sub

Public Sub PlaylistStop()
    vmpPreview.object.Playlist.pause
    volume = 100
    vmpPreview.object.Playlist.stop
End Sub

Public Property Get volume() As Integer
    volume = vmpPreview.object.volume
End Property

Public Property Let volume(nVolume As Integer)
    vmpPreview.object.volume = nVolume
End Property

Public Property Get IsPlaying() As Boolean
    IsPlaying = vmpPreview.object.Playlist.IsPlaying
End Property

Public Property Get PlaylistURL() As String
    If IsPlaying Then
        Dim nCurrentItem As Integer
        nCurrentItem = vmpPreview.object.Playlist.currentItem
        If nCurrentItem > -1 Then PlaylistURL = strPlaylistURL
    End If
End Property

End Sub

Postby **Jean-Baptiste Kempf** » 16 Jul 2015 11:10

You can hide the toolbar , I believe, with the correct parameter, in the init.

Postby **da2424** » 25 Jul 2015 20:10

This should hide the toolbar:

Code: Select all

Private Sub UserControl_Initialize()
    Set vmpPreview = Controls.Add("VideoLan.VLCPlugin.2", "vmpPreview")
    vmpPreview.Visible = True
    vmpPreview.Toolbar = False
End Sub

The VideoLAN Forums

Override default cursor move behaviour

Override default cursor move behaviour

Re: Override default cursor move behaviour

Re: Override default cursor move behaviour

Who is online