Corel VBA表单初始化/激活时文本框焦点设置失效求助

根据你描述的问题——Me.txtCsv.SetFocus在表单初始化/激活事件中看似执行成功（ActiveControl.Name显示正确）但实际光标未闪烁，且新建表单测试正常，下面是几个值得深入排查的方向：

1. 排查AllRefresh过程的干扰 #

你在UserForm_Initialize末尾调用了AllRefresh，里面包含ActiveWindow.Refresh和Application.Refresh操作。Corel的刷新机制可能会在表单加载完成后重新梳理控件焦点，覆盖你之前设置的SetFocus。可以先临时注释掉AllRefresh调用，测试焦点是否恢复正常；如果有效，尝试把Me.txtCsv.SetFocus移到AllRefresh之后，或者在AllRefresh内部添加DoEvents确保刷新完成后再设置焦点。

2. 尝试延迟设置焦点 #

Corel的表单事件触发顺序和Excel略有差异，Initialize/Activate事件中的操作可能被后续的控件初始化流程覆盖。可以用延迟执行的方式，让焦点设置在表单完全加载后再执行：

Private Sub UserForm_Activate()
    ' 延迟1秒执行焦点设置，确保表单初始化完成
    Application.OnTime Now + TimeValue("00:00:01"), "SetTxtCsvFocus"
End Sub

' 单独的焦点设置过程
Sub SetTxtCsvFocus()
    ' 替换成你的表单实际名称
    YourFormName.txtCsv.SetFocus
End Sub

也可以尝试在SetFocus前后添加DoEvents，让系统处理完所有 pending 的消息后再设置焦点：

Me.txtCsv.SetFocus
DoEvents

3. 检查其他控件的事件触发 #

你在Initialize中设置了Me.cbPrinters.Value = Me.cbPrinters.List(0)，这会触发cbPrinters_Change事件。如果这个事件里有设置其他控件焦点的代码（比如不小心切换到了其他控件），就会覆盖你对txtCsv的焦点设置。建议临时注释掉cbPrinters_Change事件中的所有代码，测试焦点是否正常；如果有效，再逐步排查该事件中的逻辑。

4. 验证控件及父容器的可见性状态 #

虽然你确认了txtCsv启用且未锁定，但要检查：

• txtCsv的Visible属性是否在初始化过程中被临时设为False后又改回True？
• 它所在的父容器（比如Frame控件frLocFoldPath）的Visible状态是否在加载时动态变化？如果父容器一开始不可见，后来才显示，可能会导致焦点设置失效。

5. 尝试在Paint事件中设置焦点 #

Corel的UserForm_Paint事件会在表单绘制完成后触发，这个时机晚于Initialize和Activate，能避开大多数初始化操作的干扰。可以试试把焦点设置放在这里：

Private Sub UserForm_Paint()
    Static hasSetFocus As Boolean
    ' 只执行一次，避免重复触发
    If Not hasSetFocus Then
        Me.txtCsv.SetFocus
        hasSetFocus = True
    End If
End Sub

6. 检查ReadOnly属性与API强制设置 #

• 确认txtCsv的ReadOnly属性是否为False——如果是True，即使ActiveControl是它，光标也不会闪烁。
• 如果以上方法都无效，可以尝试用Windows API强制设置焦点（注意Corel版本的兼容性）：

Private Declare Function SetFocus Lib "user32.dll" (ByVal hwnd As Long) As Long

Private Sub UserForm_Activate()
    ' 直接通过控件句柄设置焦点
    SetFocus Me.txtCsv.hwnd
End Sub

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