Question

vb6怎么才能使一个文本框再不是输入东西的情况下，一直获得焦点

vb6怎么才能使一个文本框再不是输入东西的情况下，一直获得焦点，并且程序也不往下走，直到输入东西后，才继续运行

Answer 1

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 And Text1 <> "" Then
Command1.SetFocus
Else
Text1.SetFocus
End If
End Sub

Answer 2

在lostfocus事件中编程确认输入是否正确。