我在这里提出了类似的问题：如何延迟VB6中的LostFocus事件。建议使用DoEvents，它对我不起作用，因为它正在重新加载我的所有表单。
我需要做的是将光标强制到文本框中以读取条形码。但是，我需要允许用户单击表单上3个按钮中的1个。因此，需要发生的事情是，可能会悬停在这些按钮之一上，释放光标足够长的时间以单击一个按钮。
能做到吗？
这是完成您需要的方法。在按钮Click事件中，执行所需的工作，然后SetFocus返回到文本框。您不会LostFocus像上一篇文章那样对事件做出响应。
Option Explicit
Private Sub Text1_LostFocus()
'do nothing
End Sub
Private Sub Command1_Click()
'do your work
Text1.SetFocus
End Sub
Private Sub Command2_Click()
'do your work
Text1.SetFocus
End Sub
Private Sub Command3_Click()
'do your work
Text1.SetFocus
End Sub
请记住，在完成工作之前，文本框不会获得焦点。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句