sstab问题 ，如何按tab键切换选项卡？

Question

sstab上有多个选项卡
每个选项卡上有多个textbox
当焦点在某个选项卡上的最后一个textbox上时，
如何实现按tab键切换到下一个选项卡

Answer 1

首先，你的sstab上面不过有多些个选项卡，他都是一个控件，所以不能通过tab键实现你要的功能
然后
   你可以这样
     在每个选项卡上面最后一个textbox里写事件
       以回车为例
          当按下回车键时
             sstab1.tab=1
          在下一个选项卡的最后一个textbox按回车
             sstab1.tab=2 不就实现你的功能了吗

Answer 2

tab键比较特殊，用回车吧：如果不是最后一个选项卡的最后一个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

Answer 3

sstab上有多个选项卡
每个选项卡上有多个textbox
当焦点在某个选项卡上的最后一个textbox上时，
如何实现按tab键切换到下一个选项卡
-------------------------------------------其实很简单:Private Sub SSTab1_GotFocus()
SSTab1.Tab = (SSTab1.Tab + 1) Mod SSTab1.Tabs
End Sub

Answer 4

以下代码更加灵活，任何时候按下Ctrl+TAB将跳到下一选项卡。
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 IfEnd SubPrivate Sub Form_Load()
Me.KeyPreview = TrueEnd Sub

Answer 5

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 IfEnd SubPrivate Sub Form_Load()
Me.KeyPreview = TrueEnd Sub

Answer 6

楼主的问题还可以这样处理:Private Sub SSTab1_GotFocus()
SendKeys "{right}"
End Sub