Question

VB中，如果text1中有数据 就让text2得到焦点，没有数据的话 则text1不失去焦点

VB中，如果text1中有数据 就让text2得到焦点，没有数据的话 则text1不失去焦点
这个代码这么写呢？

Answer 1

Private Sub Text1_Change()
If Text1.Text <> "" Then
Text2.SetFocus
Else
Text1.SetFocus
End If
End Sub

Private Sub Text2_Change()
If Text2.Text <> "" Then
Text1.SetFocus
Else
Text2.SetFocus
End If
End Sub

Answer 2

if text1.value<>"" then
text2.setfocus
esle
text1.setfocus
end if