使用VBA SetFocus时MS Forms焦点指示异常问题求助

针对你遇到的「用SetFocus编程设置焦点时，控件总会显示虚线高亮，且TakeFocusOnClick属性无效」的问题，这里提供两种比「隐藏控件转移焦点」更优雅的解决方案：

方法一：利用API消息直接隐藏焦点高亮 #

通过Windows API发送WM_CHANGEUISTATE消息，强制系统隐藏控件的焦点矩形，无需额外控件。

1. 先在VBA模块中声明API函数（兼容32/64位环境）：

Private Declare PtrSafe Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPtr
Private Const WM_CHANGEUISTATE As Long = &H127
Private Const UIS_CLEAR As Long = &H2
Private Const UISF_HIDEFOCUS As Long = &H1

2. 在调用SetFocus后立即发送消息：

' 示例：给CommandButton1设置焦点并隐藏高亮
CommandButton1.SetFocus
SendMessage CommandButton1.hwnd, WM_CHANGEUISTATE, UIS_CLEAR Or UISF_HIDEFOCUS, 0&

这个方法适用于所有MS Forms控件，兼容性好，效果直接。

方法二：临时修改TabStop属性 #

部分控件（如命令按钮、文本框）的TabStop属性会影响焦点高亮的显示，可通过临时切换该属性实现隐藏效果：

' 示例：临时禁用TabStop后设置焦点
CommandButton1.TabStop = False
CommandButton1.SetFocus
CommandButton1.TabStop = True

这个方法无需API，代码更简洁，适合不需要兼容所有控件的场景。

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