VB中如何获取向下健。

Question

可以在文本框中输入数据后，直接按向下键就可以跳到另一个文本框中

Answer 1

新建一个窗体，依次加入两个文本框控件: Text1,Text2,使用下列代码:Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyDown Then
        SendKeys "{TAB}"
    End If
End Sub

Answer 2

Option ExplicitPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 40 Then
        SendKeys "{TAB}"
    End If
End SubPrivate Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 38 Then
        SendKeys "{TAB}"
    End If
End Sub
---------
www.vicmiao.com
努力就有美好时光！

Answer 3

差不多就那样了……
用ASCII码或者直接VBKEY+DOWN
  接分

Answer 4

SendKeys "{TAB}"不一定就跳到text2上啊，还是text2.setfocus比较保险。