我在涉及LostFocus事件的过程中遇到了问题。
当光标从特定文本框中失去焦点时，我只是将焦点重新放回到该框中。
我的问题是将焦点移走足够长的时间，以便用户单击注销按钮。有没有一种LostFocus足够长的时间来拦截事件以允许用户单击注销按钮的方法？
显然，我不知道这里的全局。但是，仅遵循您所说的，技巧就可以了。实际上，事件会短暂延迟，从而允许单击按钮：
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Text1_LostFocus()
Sleep 100
DoEvents
Text1.SetFocus
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句