把其他控件的 TabStop全部设置成 False
Textbox的代码:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyTab Then
Text1.SelText = vbTab
End If
End Sub
看那个控件的
tabindex
属性的顺序,
假设
text1
的
tabindex
为
0
text2
的
tabindex
为
1
command1
的
tabindex
为
2
那么光标在text1的时候,按一下tab键,text2就会获得焦点,再按一下tab,那么command1就会获得焦点。
按CTRL+TAB可以进行缩进