Cursor over control

[Ig]

How to make mouse cursor change for example to hand when moving over
control?

 

[Dirk Goldgar]

How to make mouse cursor change for example to hand when moving over
control?

Copy and paste the code from

http://www.mvps.org/access/api/api0044.htm

into a standard module. Then either create an event procedure for the
control's MouseMove event like this:

'----- start of example code -----
Private Sub YourControl_MouseMove( _
Button As Integer, _
Shift As Integer, _
X As Single, _
Y As Single)

MouseCursor IDC_HAND

End Sub

'----- end of example code -----

or just set its OnMouseMove event property to

=MouseCursor(32649)

You can pick other pointer shapes, too.

 

[Ig]

Thanks, Dirk

Copy and paste the code from

http://www.mvps.org/access/api/api0044.htm

into a standard module. Then either create an event procedure for the
control's MouseMove event like this:

'----- start of example code -----
Private Sub YourControl_MouseMove( _
Button As Integer, _
Shift As Integer, _
X As Single, _
Y As Single)

MouseCursor IDC_HAND

End Sub

'----- end of example code -----

or just set its OnMouseMove event property to

=MouseCursor(32649)

You can pick other pointer shapes, too.

--
Dirk Goldgar, MS Access MVP
www.datagnostics.com

(please reply to the newsgroup)