Question

在VB中如何实现用方向键控制TEXT的光标在几个TEXT中移动?

Answer 1

'处理文本框的KeyDown事件
'一般是上移到前一控件,
'下箭头移到下一控件
'左右不作处理,左右用于在文本框文字间移动
'用这种方法前提是选择设置好每个控件的焦点顺序,控件的TabIndex属性
'也可以直接指定哪个控件获得焦点,也可以写成 control.SetFocus
Private Sub TextBox_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 38
'上,焦点到前一控件
SendKeys "+{tab}" '相当于按Shift+Tab
'也可以直接指定上一个控件获得焦点
'TextBox2.SetFocus

Case 40
'下,焦点到后一控件
SendKeys "{tab}" '相当于按Tab

Case 37
'左

Case 39
'右
End Select
End Sub

Answer 2

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 37 Then '方向左, 上键:38 右键:39 下键:40 根据你的需要修改
Text2.SetFocus '移到指定的文本框
End If
End Sub
如果你的文本框是控件数组的话,则可以根据当前的Index值作变化后,进行设置