Используйте курсор в виде стрелки для текстового поля

Question

Я использую текстовое поле вместо кнопки в форме MS Access 2003. При наведении курсора на текстовое поле курсор меняется на точку вставки. Есть ли способ удерживать курсор мышью (и держать текстовое поле активным, чтобы свойство «enabled» не могло быть установлено в «no»)?

Answer 1

В событии перемещения мышью текстового поля установите:

screen.MousePointer = 1

Answer 2

Это также будет полезно, вы можете использовать его в качестве справочного материала и использовать его в соответствии со своими потребностями.

Вставить в модуль:

Option Compare Database
Option Explicit

' Declarations for setting the cursor icon when called
Public Const IDC_HAND = 32649&
Public Const IDC_ARROW = 32512&
Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Public Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long

Как вызвать руку гиперссылки (не забудьте использовать правильное имя модуля):

CursorModule.SetCursor LoadCursor(0, IDC_HAND)

Как вызвать форму курсора по умолчанию:

CursorModule.SetCursor LoadCursor(0, IDC_ARROW)

Источник: Изменение формы курсора