将箭头光标用于文本框

Question

我正在使用文本框代替MS Access 2003表格中的按钮。当我悬停在文本框上时，光标会更改为插入点。是否有任何方法可以将光标保持鼠标（并保持文本框可单击 - 因此“启用”属性无法设置为“否”）？

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)

来源：改变光标形状