VB6：如何强制光标进入文本框但释放按钮按下

Question

我在这里问了一个类似的问题：。建议使用 DoEvents，这对我不起作用，因为它正在重新加载我的所有表单。

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

这可以做到吗？

Answer 1

这是一种完成您需要的方法。在按钮 Click 事件中，完成所需的工作，然后 SetFocus 返回到文本框。您将不会像之前的 post.

那样响应 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

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

VB6：如何强制光标进入文本框但释放按钮按下

VB6: How do I force the cursor into a textbox but release for button press

vb6