Override default cursor move behaviour

All you've ever wanted to know about the ActiveX, Mozilla plugins, the web interface and various PHP extensions
FetterDoubt
New Cone
New Cone
Posts: 4
Joined: 03 Aug 2010 23:39

Override default cursor move behaviour

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

Jean-Baptiste Kempf
Site Administrator
Site Administrator
Posts: 37523
Joined: 22 Jul 2005 15:29
VLC version: 4.0.0-git
Operating System: Linux, Windows, Mac
Location: Cone, France
Contact:

Re: Override default cursor move behaviour

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

You can hide the toolbar , I believe, with the correct parameter, in the init.
Jean-Baptiste Kempf
http://www.jbkempf.com/ - http://www.jbkempf.com/blog/category/Videolan
VLC media player developer, VideoLAN President and Sites administrator
If you want an answer to your question, just be specific and precise. Don't use Private Messages.

da2424
Cone that earned his stripes
Cone that earned his stripes
Posts: 310
Joined: 16 Apr 2013 16:57

Re: Override default cursor move behaviour

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


Return to “Web and scripting”

Who is online

Users browsing this forum: No registered users and 8 guests