Question

如上图，在vb中，怎样定使用键盘方向键令光标上下左右自由移动呢。。

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

Answer 1

假设这9个文本框是控件数组，名字为text1，index从0-8，输入如下代码：

Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
Dim temp As Integer
    temp = Index
    Select Case KeyCode
        Case 37 '左
            temp = temp - 1
            
        Case 38 '上
            temp = temp - 4
        Case 39 '右
            temp = temp + 1
        Case 40 '下
            temp = temp + 4
    End Select
    If temp > 8 Then
        temp = 8
    End If
    If temp < 0 Then
        temp = 0
    End If
    Text1(temp).SetFocus
End Sub

追问

谢谢

大神，为什么我在第一个文本框输入这些代码后，光标只能作同列文本框上下移动，而不能向相邻文本框作左右移动呢

Answer 2

一般不用方向键，一般都按“Tab”键

追问

我有两排文本框，只用“tab”.只能移动下一个文本框，不方便。我要实现在文本框光标的任意移动，能做好吗？

追答

哦，这种情况我暂时也没遇到过。话说文本框多的话直接用鼠标点击不就好了

追问

也是，谢谢