I'm skilled in HTML, CSS, JavaScript, Ionic, React, PHP, Laravel, and Flutter. I love creating applications with responsive, beautiful, intuitive, state-of-the-art designs. If for some reason you would like to use one of the other built-in cursors, you can use one of the values in the lpCursorName table of the LoadCursorA documentation.Samson Omojola Follow I'm an experienced software engineer.
HLastCursor = LoadCursor(0, CLng(IDC_HAND))Įnter =UseHand() in the On Mouse Move event of the control where you want the cursor to switch to a hyperlink hand: ' Load new cursor and, if successful, set it ' Usage : Set OnMouseMove of control to =UseHand() ' Purpose : Use instead of hyperlink to change mouse cursor to pointing hand. 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 kommentar(er)
