Question

vb 两个文本框 焦点转移

两个文本框，当text2为空时，光标仍然停在text2中，按一下backspace
光标移动到text1中。
代码怎样写？？

Answer 1

你确定是按backspace
'下面的是按回车键我想也应该是回车键
'代码如下
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn And Text2.Text <> "" Then
Text1.SetFocus
End If
End Sub

Answer 2

Private Sub Text2_KeyPress(KeyAscii As Integer)
If Text2 = "" Then
If KeyAscii = 8 Then
Text1.SetFocus
End If
End If
End Sub

Answer 3

Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyBack And Text2.Text = "" Then
Text1.SetFocus
SendKeys ("{End}")
End If
End Sub