Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyTab And Shift = 2 Then
i = SSTab1.Tab + 1
If i >= SSTab1.Tabs Then i = i - SSTab1.Tabs
SSTab1.Tab = i
End If
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyTab And Shift = 2 Then
i = SSTab1.Tab + 1
MsgBox i
If i >= SSTab1.Tabs Then i = i - SSTab1.Tabs
SSTab1.Tab = i
End If
如果不是最后一个选项卡的最后一个Text:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SSTab1.Tab = SSTab1.Tab + 1'回车切换到下一个选项卡
End Sub
如果是最后一个选项卡的最后一个Text:
Private Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SSTab1.Tab = 0'回车切换到第一个选项卡
End Sub