Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub
如果想简单的话,将formr的keypreview设为true,然后:Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then SendKeys "{Tab}" End If End Sub不过这样做必须将你的控件的tabindex属性排列好。^_^
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
If KeyCode = 13 Then
SendKeys "{Tab}"
End If
End Sub不过这样做必须将你的控件的tabindex属性排列好。^_^
怎么排列??