folderbta.blogg.se

HNewCursor = LoadCursorFromFile(CurrentProject.Path & "\cool.cur") HNewCursor = LoadCursor(ByVal 0&, IDC_HAND) 'Load cursor 'Comment out code not required: 'Load system cursor ' Declare Windows API Constants for Windows System cursors "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long Private Declare Function LoadCursor Lib "user32" Alias_ "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _ Private Declare Function SetClassLong Lib "user32" Alias_ Private Declare Function LoadCursorFromFile Lib "user32" _Īlias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long

However, there are two API calls that allow you to use your own custom cursors or Windows system cursors in your Access applications. Using VBA in Access, apart from the Hand cursor for a Hyperlink control and the Hourglass method of the DoCmd object, you can only use the MousePointer property of the Screen object to specify a mouse-pointer, with the cursor types limited to: I create Access Switchboard products and was frustrated by the lack of native functionality in Access for using custom cursors, for example, using a hand cursor on non-hyperlink controls.