如何通过代码判断某个TabPage为当前选择的页面？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何通过代码判断某个TabPage为当前选择的页面？

共有10672人关注过本帖树形打印复制链接主题：如何通过代码判断某个TabPage为当前选择的页面？

pc005637

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1038 积分：12915 威望：0 精华：0 注册：2011/5/29 15:19:00

如何通过代码判断某个TabPage为当前选择的页面？ 发帖心情

Post By：2012/3/12 1:14:00 [只看该作者]

Dim tc As WinForm.Control = Forms("窗口").Controls("TabControl1")
Dim pg1 As WinForm.TabPage = Forms("窗口").Controls("TabControl").TabPages("TabPage1")
Dim pg2 As WinForm.TabPage = Forms("窗口").Controls("TabControl2").TabPages("TabPage2")
Dim pg3 As WinForm.TabPage = Forms("窗口").Controls("TabControl2").TabPages("TabPage3")

要求，当"TabPage1"为"TabControl1"的激活页面时，

"TabPage2"显示，否则"TabPage3"显示。

求代码，谢谢。

程兴刚

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2012/3/12 1:29:00 [只看该作者]

Dim n As Integer
If Forms("窗口1").Controls("TabControl1").SelectedIndex = 2
n = 0
Else
n = Forms("窗口1").Controls("TabControl1").SelectedIndex+1
End If
Forms("窗口1").Controls("TabControl1").SelectedIndex = n

程兴刚

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2012/3/12 1:37:00 [只看该作者]

这样适用于任意多个页面：

Dim n As Integer
If Forms("窗口1").Controls("TabControl1").SelectedIndex = Forms("窗口1").Controls("TabControl1").TabPages.Count-1
n = 0
Else
n = Forms("窗口1").Controls("TabControl1").SelectedIndex+1
End If
Forms("窗口1").Controls("TabControl1").SelectedIndex = n

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/3/12 7:41:00 [只看该作者]

参考：

http://www.foxtable.com/help/topics/0831.htm

http://www.foxtable.com/help/topics/0832.htm

下一主题 >> << 上一主题

主题：如何通过代码判断某个TabPage为当前选择的页面？