Hide Mouse

[lukePas]

Anyone know how to hide the mouse pointer when over certain objects - or make it disapear on a form totaly?
Any help would be greatly appriciated
thanks

[rammy]

u can use the ShowCursor API to hide/show the mouse pointer.

'Declaration
Public Declare Function ShowCursor Lib "user32" Alias "ShowCursor" (ByVal bShow As Long) As Long


To hide the mousepointer:

ShowCursor false


To show the mousepointer:

ShowCursor true

[lukePas]

Thanks for the help
If possible could you give a little more detail as I was unable to get it to work

[rammy]

As a simple example try this:

create a form named Form1 with 2 command buttons.

name them cmdhide and cmdshow

copy this code to form1:

'Form1's code:

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Sub cmdhide_Click()
    ShowCursor False
End Sub

Private Sub cmdshow_Click()
    ShowCursor True
End Sub

click cmdhide to hide the mousepointer and cmdshow to show the mousepointer.

hope this helps..... :-)


[Edited by rammy on 10-03-2000 at 05:25 AM]

[lukePas]

Thanks you very much
works great!!

[rammy]

ur welcome....glad i could help!

[mlewis]

you can also do this:

to make cursor vanish over a control, create a transparent cursor file (.cur) or icon (.ico)

set the control's mousepointer property to 99

set the controls mouseicon property to your transparent .cur or .ico file

run program

voila!