上下键移动光标的问题

来源：百度知道 编辑：UC知道 时间：2024/05/16 09:59:14
在一个页面上全是文本框让用户输入数据的，加了点代码能让文本框里用上下键控制光标,但当点另外的方本框后用上下键时又回到上一次用上下键移动的地方，想到到一个地方后，用上下键时，就从点的那个位置开始，怎么办，请帮忙

用selstart属性即可;
dim last,next as interget
Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
If KeyCode = vbKeyUp Then
next=text1.selstart
text1.selstart=last
End If
If KeyCode = vbKeyDown Then
last=text1.selstart
Text1.selstart=next
End If
End Sub

Private Sub text1_GotFocus()
代码在这里面写

End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then
Text1.SetFocus
End If
If KeyCode = vbKeyDown Then
Text3.SetFocus
End If
End Sub