VB6：如何将光标强制插入文本框，但释放以按下按钮

我在这里问了一个类似的问题：。有人建议使用

DoEvents

，这对我来说不起作用，因为它正在重新加载我的所有表单

我需要做的是强制将光标插入文本框，以便读取条形码。但是，我需要允许用户能够单击表单上3个按钮中的1个。因此，需要做的是，可能在将光标悬停在其中一个按钮上时，释放光标足够长的时间以单击按钮

---

这可以做到吗？

这里有一种方法可以满足您的需要。在按钮

中单击

事件，执行所需的工作，然后

设置焦点

返回文本框。您将不会像上一篇文章中那样响应

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

---

请记住，在工作完成之前，文本框不会获得焦点。

请注意，如果在按钮单击工作时条形码数据到达，则可能会丢失该数据。单击事件代码运行的时间越长，发生这种情况的可能性就越大。只要你的点击事件没有太多的事情要做，而且运行速度很快，你可能就没事了，不会丢失数据（但不保证）。