以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  页签调用求助  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=57043)
--  作者：tuyage
--  发布时间：2014/9/17 10:57:00
--  页签调用求助

我想要实现点击菜单时候，弹出相对应的窗口时是在主窗口显示，比如点击“菜单A”，会在主窗口弹出“窗口A”，点击“菜单B”，“菜单A”对应的窗口自动消失，“菜单B”对应的窗口占用主窗口。但系统的几种窗口，要实现比较麻烦。


我想采用TabControl页签实现。。。如下图，我新建好所有页签，然后把页签标题隐藏起来，然后建立对应按钮，如图，如何点击按钮“项目信息”，跳转到页签里面的“项目信息”。



图片点击可在新窗口打开查看此主题相关图片如下：tabcontrol.bmp
图片点击可在新窗口打开查看
。
--  作者：有点甜
--  发布时间：2014/9/17 11:00:00
--  

切换代码

 

Forms("窗口1").Controls("TabControl1").SelectedPage = Forms("窗口1").Controls("TabControl1").TabPages("项目信息")
--  作者：tuyage
--  发布时间：2014/9/17 11:01:00
--  
找到答案了


Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
tab.SelectedIndex = 1
--  作者：tuyage
--  发布时间：2014/9/17 11:09:00
--  
实验过了，你刚才给这个代码，点击以后会显示一个没有任何文件的页签，我建立的几个页签没有一个是选中的状态。应该是我使用不对，感觉好像哪里比较先进，待后面我慢慢研究下你给的这段代码。。非常感谢

帮助文件里面这段代码可以实现：后面的数字能以页签标题实现吗在请教下？
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
tab.SelectedIndex = 1