[AccessD] Turn Mouse Pointer to Hand

Ehlers, Rick Rick.Ehlers at cinergy.com
Tue Jul 26 12:00:18 CDT 2005


Lambert,

 Do you have other cursor listings or tell me where to find them? This
is cool. Now I've got about 10 apps to update. That should keep me busy
for a while ;-)

 Thanks.


Rick Ehlers
  Power Services
  Performance And Valuation
  Annex - EX510
  Phone: (513) 287-2047
  Fax: (513) 287-3698
  EMail: Rick.Ehlers at cinergy.com

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan,
Lambert
Sent: Tuesday, July 26, 2005 11:29 AM
To: 'Access Developers discussion and problem solving'
Cc: 'Rocky Smolin - Beach Access Software'
Subject: RE: [AccessD] Turn Mouse Pointer to Hand

OK. I got it, this time using the API route. Put this code in a
module...

Public Const HandCursor = 32649&

Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
(ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long

Function MouseCursor(CursorType As Long) Dim lngRet As Long
    lngRet = LoadCursorBynum(0&, CursorType)
    lngRet = SetCursor(lngRet)
End Function

...Then all you need is a MouseMove event for the label which reads...

    MouseCursor HandCursor

Access will automatically restore the default cursor when you move out
of the label's area.

Lambert



More information about the AccessD mailing list