Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" ( _ Private Declare PtrSafe Function SetCursor Lib "user32" (ByVal hCursor As LongPtr) As LongPtr Private Declare PtrSafe Function LoadCursor Lib "user32" Alias "LoadCursorA" ( _ Here is my adaptation of Mister Slimm's original code: ' UseHand() declarations - paste the #If - #End If lines at the top of the module I've stripped the extra stuff out, added some code for 64-bit compatibility, and performed some light refactoring to minimize the amount of code you need to copy. There is also a bunch of extra fluff (four-way arrow mouse cursor, anyone?) that I've never felt the need to use over the past 15 years. ![]() As with many articles of that era, the API calls are 32-bit only. The article shows how to use a couple of API calls to force the mouse to use the Windows hyperlink hand icon when moving over any control or form section in Microsoft Access. ![]() Years ago, I came across an article from Mister Slimm, Microsoft Access 2002 – Emulate hyperlink cursor change.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |