VBA：更新Userform TextBox内容时如何隐藏或删除闪烁光标

方法1：每次更新后将焦点移至隐藏控件 #

既然初始化时设置焦点的方式不适用持续更新的场景，你可以在每次更新TextBox文本后，立刻将焦点转移到一个隐藏的控件上。步骤如下：

1. 在UserForm上添加一个Label控件（或者TextBox），命名为lblHidden
2. 设置该控件的Visible属性为False，TabStop属性为False
3. 每次更新TextBox文本的代码末尾，添加焦点转移语句：

' 假设你的状态显示TextBox名为txtStatus
Me.txtStatus.Text = "正在执行XX步骤..."
' 转移焦点到隐藏控件
Me.lblHidden.SetFocus

这样每次更新文本后，光标会立刻离开TextBox，不会停留在末尾闪烁。

方法2：使用Windows API隐藏光标 #

通过调用系统API直接隐藏TextBox的光标，无需额外控件。注意要根据Office的位数（32/64位）做兼容性处理：

首先在模块顶部声明API函数：

#If VBA7 Then
    Declare PtrSafe Function HideCaret Lib "user32" (ByVal hwnd As LongPtr) As Long
#Else
    Declare Function HideCaret Lib "user32" (ByVal hwnd As Long) As Long
#End If

然后在更新TextBox文本后调用该函数：

Me.txtStatus.Text = "后台代码运行中..."
' 隐藏TextBox的光标
HideCaret Me.txtStatus.hwnd

这个方法直接作用于TextBox的窗口句柄，调用后光标会立刻消失，且不影响后续文本更新。

方法3：改用Label控件替代TextBox #

如果你的需求只是显示运行状态，不需要用户输入，那么用Label控件完全可以替代TextBox——Label本身不会显示光标，从根源上解决问题。

1. 删除原有的TextBox，添加一个Label控件（命名为lblStatus）
2. 设置Label的AutoSize为True，WordWrap根据需要设置
3. 更新状态时直接修改Label的Caption属性：

Me.lblStatus.Caption = "已完成XX操作，继续执行下一步..."

同时你原来的UserForm自动调整大小的逻辑也可以直接适配Label，无需额外修改。

内容的提问来源于stack exchange，提问作者Milad