[AccessD] Turn Mouse Pointer to Hand

Heenan, Lambert Lambert.Heenan at AIG.com
Tue Jul 26 12:19:21 CDT 2005


I found this listing of constants on the Access Web
(http://www.mvps.org/access/api/api0044.htm)

Public Const IDC_APPSTARTING = 32650&
Public Const IDC_HAND = 32649&
Public Const IDC_ARROW = 32512&
Public Const IDC_CROSS = 32515&
Public Const IDC_IBEAM = 32513&
Public Const IDC_ICON = 32641&
Public Const IDC_NO = 32648&
Public Const IDC_SIZE = 32640&
Public Const IDC_SIZEALL = 32646&
Public Const IDC_SIZENESW = 32643&
Public Const IDC_SIZENS = 32645&
Public Const IDC_SIZENWSE = 32642&
Public Const IDC_SIZEWE = 32644&
Public Const IDC_UPARROW = 32516&
Public Const IDC_WAIT = 32514&


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ehlers, Rick
Sent: Tuesday, July 26, 2005 1:00 PM
To: Access Developers discussion and problem solving
Subject: RE: [AccessD] Turn Mouse Pointer to Hand


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
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



More information about the AccessD mailing list