disable/enable mouse

[shtirliz]

Hi,

Does anybody know a way to disable/enable the mouse and see if the mouse even exist in hardware profile?

Thanks

[Mad Compie]

I think you could use this:


Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Sub Form_Load()
ShowCursor 0 'Hide the cursor
'Wait 10 seconds
t = Timer
Do: DoEvents: Loop Until Timer > t + 10
ShowCursor 1 'Show the cursor
End Sub


But this only hides the pointer, it does not disable it.
I'll try to look at other possibilities.

[kedaman]

To both hide and disable:
http://209.207.250.147/showthread.php?threadid=26425

[Mad Compie]

Wright, Kedaman!
It was the ClipCursor thing.

Some APIs are not in Win2000, so you can set the cursor position into a form and add:


Private Sub Form_Mousemove()
'code for setting cursor position
End Sub


Strange how I could suggest AGAINST API. [!]

[Mad Compie]

Consider that with your approach the mouse event still occurs. Clipcursor reduces the mouse area to a zero-sized rect, which really disables your mouse. So, I stay with Kedaman's approach...

OK, mc, I guess you're right. I really messed up that one, and I'm sorry.