使用文本框的箭头光标

Posted 2023-05-07

【中文标题】使用文本框的箭头光标

【英文标题】：Use arrow cursor for textbox

【发布时间】：2010-11-08 18:01:28

【问题描述】：

我正在使用文本框代替 MS Access 2003 表单中的按钮。当我将鼠标悬停在文本框上时，光标变为插入点。有没有办法让光标保持鼠标状态（并保持文本框可点击——因此“启用”属性不能设置为“否”）？

【参考方案1】：

在文本框的鼠标移动事件中，设置：

screen.MousePointer = 1

【讨论】：

在 Access 2013 中设置此属性并将鼠标悬停在文本框上后，我收到一条消息：Microsoft Access cannot find the object 'screen.'

【参考方案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)

来源： Changing Cursor Shape