回车键的用法

Question

我用的是TEXT控件数组，想用回车键移到下一个TEXT控件数组中的下一个

Answer 1

private sub text1_keypress(keyascii as integer)
    If keyascii=vbkeyreturn then
        text2.setfocus
        keyascii=0
    end if
end sub

Answer 2

if keyascii=13 then
text2.setfocus
end if

Answer 3

Const MAX_TEXT = 5  '控件数Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
    If Index < MAX_TEXT - 1 Then
        If KeyAscii = 13 Then
            Text1(Index + 1).SetFocus
        End If
    End If
End Sub

Answer 4

有text(0),text(1)﹐切焦實現如下﹕Private Sub Text_KeyPress(Index As Integer, KeyAscii As Integer)
    If KeyAscii = 13 Then
        SendKeys "{tab}"
    End If
End Sub

Answer 5

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
   If KeyAscii = 13 Then          Text1((Index + 1) Mod Text1.Count).SetFocus '可循环
    End If
End Sub