Question

vb中怎样通过按下上下左右键移动焦点在文本框中的位置

Vb中怎样通过按下上下左右键移动焦点在文本框中的位置，即ascll码值为24，25，26，27的上下左右键通过键盘过程移动焦点在各文本框中的位置，例txet1 text2 text3 等当按下“下”方向键时，焦点可从TEXT1移至TEXT2
最好有程序代码。

Answer 1

这个题目没有巧妙的方法，只能用setfocus来控制你需要的到焦点的文本框。
另外，上下左右键可以控制焦点在text1、text2..中切换，可是这样就屏蔽了它的另一个功能：在单独的text中移动光标的位置，为此，添加一个check1，勾选这个check1 就是移动焦点，否则就是移动光标在某个文本框中的位置！

在窗体上创建4个文本框，按照上，下左右的顺序排列，创建一个checkbox，复制下面的代码运行一下：

Option Explicit
Private Sub Check1_Click()
Text1.SetFocus
If Check1.Value = 1 Then
Form1.KeyPreview = True
Else
Form1.KeyPreview = False
End If
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 37
Text1.SetFocus
Case 38
Text2.SetFocus
Case 39
Text3.SetFocus
Case 40
Text4.SetFocus
End Select
End Sub