# Re: textbox 往上一格或下一格的问题~~~非常紧急啊

Posted by 小琳 on August 14, 1999 at 14:47:28:

In Reply to: textbox 往上一格或下一格的问题~~~非常紧急啊 posted by 想得快急死了的人 on August 14, 1999 at 14:07:49:

: hi~
: 各位救救我吧...
: 我在form中共有24个textbox
: 但其中我只想让它在1-8个textbox跳
: 也就是按[ENTER]时,往前跳
: 按[-]号时往后跳
: 但在textbox(8)时,按[ENTER]要跳回第一格textbox(1)
: 我知道往前跳可用sendkeys "{TAB}"
: 往回跳sendkeys "+{TAB}"
: 可是不知道怎么写才能控制它在我规定的范围跳????
: 谢谢~~~~

:::您可以使用将那８个Textbox设定成一个物件阵列，另外
的Textbox则设定成另外一个物件阵列，程式如下：
Dim temp As Integer

Private Sub Form_Load()
temp = 0
End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
If temp = 4 Then
temp = 0
Else
temp = temp + 1
End If
Text1(temp).SetFocus
End If
End Sub

Follow Ups: