以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何通过代码判断某个TabPage为当前选择的页面？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=17383)
--  作者：pc005637
--  发布时间：2012/3/12 1:14:00
--  如何通过代码判断某个TabPage为当前选择的页面？

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"显示。

 

求代码，谢谢。
--  作者：程兴刚
--  发布时间：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
--  作者：程兴刚
--  发布时间：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
--  作者：狐狸爸爸
--  发布时间：2012/3/12 7:41:00
--  

参考：

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

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