sstab问题 ,如何按tab键切换选项卡?

visualKKK 2005-10-28 02:22:56
sstab上有多个选项卡
每个选项卡上有多个textbox
当焦点在某个选项卡上的最后一个textbox上时,
如何实现按tab键切换到下一个选项卡

...全文
332 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
northwolves 2005-10-29
  • 打赏
  • 举报
回复
楼主的问题还可以这样处理:

Private Sub SSTab1_GotFocus()
SendKeys "{right}"
End Sub
wumylove1234 2005-10-29
  • 打赏
  • 举报
回复
用模除的方法是最简单的.呵呵.



================业精于勤荒于嬉,形成于思毁于随=================

如果再给我一次爱的机会,我会好好的珍惜!
jxgzay 2005-10-29
  • 打赏
  • 举报
回复
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

End Sub

Private Sub Form_Load()
Me.KeyPreview = True

End Sub

jxgzay 2005-10-29
  • 打赏
  • 举报
回复
以下代码更加灵活,任何时候按下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 If

End Sub

Private Sub Form_Load()
Me.KeyPreview = True

End Sub

northwolves 2005-10-28
  • 打赏
  • 举报
回复
sstab上有多个选项卡
每个选项卡上有多个textbox
当焦点在某个选项卡上的最后一个textbox上时,
如何实现按tab键切换到下一个选项卡
-------------------------------------------

其实很简单:

Private Sub SSTab1_GotFocus()
SSTab1.Tab = (SSTab1.Tab + 1) Mod SSTab1.Tabs
End Sub
faysky2 2005-10-28
  • 打赏
  • 举报
回复
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
visualKKK 2005-10-28
  • 打赏
  • 举报
回复
就是说按tab键不行了?
上官云峰 2005-10-28
  • 打赏
  • 举报
回复
首先,你的sstab上面不过有多些个选项卡,他都是一个控件,所以不能通过tab键实现你要的功能
然后
你可以这样
在每个选项卡上面最后一个textbox里写事件
以回车为例
当按下回车键时
sstab1.tab=1
在下一个选项卡的最后一个textbox按回车
sstab1.tab=2 不就实现你的功能了吗

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧