使用默认按钮时不会触发文本框丢失焦点事件

Question

今天，我偶然发现 TextBox 中的 LostFocus 事件没有触发。大多数客户没有遇到任何问题，但其中一小部分报告了意外行为。经过一番研究，我发现没有遇到问题的客户用鼠标单击“确定”按钮，而其他客户则按键盘上的 Enter 。 “确定”按钮是表单上的默认按钮，因此按 Enter 应该可以正常工作。问题是按 Enter 不会在具有焦点的 TextBox 上触发 LostFocus 事件。

经过一番谷歌搜索后，很明显这是默认按钮的预期行为。焦点永远不会丢失 TextBox，并且 CommandButton Click 事件背后的代码正在运行，而无需单击它。

使用默认按钮时如何触发 LostFocus 事件？

Answer 1

对我有用的一个简单技巧是每当 Click 事件被触发时将焦点设置到“Ok”按钮。这样当前控件就会自动运行其 LostFocus 事件。设置焦点后不要忘记添加一个额外的 DoEvents 。否则，LostFocus 事件会在执行其他代码后触发。

Private Sub cmdOk_Click()
    cmdOK.SetFocus
    DoEvents
    'Run your other code
End Sub