一个控件顺序的问题，大家可能都碰到过！

Question

'当用户敲回车时，切换到下一个焦点
Public Sub Form_Enter(KeyAscii As Integer, Count As Integer, Frm_OBJ As Object)
  On Error Resume Next
   Dim NextTabIndex As Integer, i As Integer
   If KeyAscii = 13 Then
      If Screen.ActiveControl.TabIndex = Count - 1 Then
         NextTabIndex = 0
      Else
         NextTabIndex = Screen.ActiveControl.TabIndex + 1
      End If
Repeat_Tab:
      For i = 0 To Count - 1
          If ((TypeName(Frm_OBJ.Controls(i))) <> "Label") And ((TypeName(Frm_OBJ.Controls(i))) <> "Frame") And ((TypeName(Frm_OBJ.Controls(i))) <> "PictureBOX") Then
             If Frm_OBJ.Controls(i).TabIndex = NextTabIndex Then
                If Frm_OBJ.Controls(i).Enabled = True And Frm_OBJ.Controls(i).Visible = True Then
                   
                   Frm_OBJ.Controls(i).SetFocus
                   Frm_OBJ.Controls(i).SelStart = 0
                   Frm_OBJ.Controls(i).SelLength = Len(Frm_OBJ.Controls(i).Text)
                   Exit For
                Else
                   NextTabIndex = NextTabIndex + 1
                   GoTo Repeat_Tab
                End If
             End If
          End If
      Next i
      KeyAscii = 0
   End If
End Sub

Answer 1

将form的keypreview属性设置为True，然后再Form_keypress事件中加sendkeys语句即可。