求助：点击OK按钮触发Exit事件实现表单数值格式化

我完全懂你的痛点——当用户最后操作的是InputPropertyCapRate这个输入框时，直接点OK按钮根本触发不了它的Exit事件，导致字段没被格式化；但先点别的输入框再点OK就正常，这明显是焦点触发的问题。而且多标签页场景下，随便设置焦点到其他输入框又不现实，Multipage.SetFocus还不好使，确实头疼。

问题根源 #

Exit事件只有当控件失去焦点的时候才会触发。如果用户最后停留在InputPropertyCapRate上，直接点击OK按钮时，Multipage.SetFocus可能因为多标签容器的焦点机制问题，没能让输入框真正失去焦点，所以Exit事件没跑起来。

两种可行解决方案 #

方案1：直接复用格式化逻辑（推荐）

与其依赖焦点事件，不如把格式化代码抽成独立的子过程，在Exit事件和OK按钮点击事件里都调用它。这样不管焦点在哪里，都能确保字段被正确格式化，还避免了代码重复。

修改后的代码：

' 把格式化逻辑抽成独立子过程
Private Sub FormatCapRateField()
    ' 先判断输入不为空，避免空值报错
    If InputPropertyCapRate.Text <> "" Then
        InputPropertyCapRate.Text = Format(InputPropertyCapRate / 100, "#,0.0#%")
    End If
End Sub

' 原来的Exit事件调用这个子过程
Private Sub InputPropertyCapRate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    FormatCapRateField
End Sub

' OK按钮点击时先执行格式化，再卸载表单
Private Sub ButtonOK_Click()
    FormatCapRateField
    MultiPage.SetFocus
    Unload DealInfo
End Sub

方案2：强制触发焦点转移

如果你一定要通过触发Exit事件来实现，可以添加一个隐藏的控件（比如标签Label1，把Visible属性设为False），先把焦点移到这个隐藏控件上，确保输入框失去焦点触发Exit事件，再做后续操作：

Private Sub ButtonOK_Click()
    ' 先把焦点移到隐藏控件，触发当前焦点控件的Exit事件
    Label1.SetFocus
    ' 再执行原来的操作
    MultiPage.SetFocus
    Unload DealInfo
End Sub

为什么推荐方案1？ #

多标签表单的焦点机制有时候会有各种奇怪的问题，依赖焦点触发事件很不稳定。直接调用格式化逻辑更直观，也更容易维护，不用担心后续修改多标签结构导致焦点失效的问题。

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