以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  任务栏中任务执行代码的设置  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30604)

--  作者:deliangzhaoe
--  发布时间:2013/3/31 17:51:00
--  任务栏中任务执行代码的设置

请问老师:

某个窗口,左边是任务栏,右边是页面集合,想在点击左边任务栏中某个任务的时候,右边能打开页面集合中的对应页面。应在什么地方设置,如何写代码?谢谢!


--  作者:czy
--  发布时间:2013/3/31 21:21:00
--  

TopicLinkClick事件设置。

 

SelectedIndex

整数型,返回或设置选定页面编号。

示例

选择第二个页面:

Forms("窗口1").Controls("TabControl1").SelectedIndex = 1


--  作者:deliangzhaoe
--  发布时间:2013/4/2 20:06:00
--  
首先谢谢你!
但是我还是没弄好:
任务栏中有多个任务,页面集合中也有多个页面,怎样分别点击打开呢?代码如何写呢?
非常感谢!

--  作者:deliangzhaoe
--  发布时间:2013/4/2 21:52:00
--  
任务栏中有任务1、任务2、任务3三个任务,对应页面集合中页面1、页面2、页面3,怎样在点击任务1时,打开页面1,点击任务2时打开页面2?
非常感谢老师!

--  作者:deliangzhaoe
--  发布时间:2013/4/3 16:18:00
--  还是不行啊,哥!
本人刚开始学,这样写为什么不行?


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看
Select Case e.Link.Name
    Case "职业病危害因素识别记录"
        Forms("职业健康安全").Controls("TabControl1").SelectedIndex = 0
    Case "职业卫生防护设施和个体防护用品台账"
        Forms("职业健康安全").Controls("TabControl1").SelectedIndex = 1
    Case "可能产生职业病危害的设备登记表"
        Forms("职业健康安全").Controls("TabControl1").SelectedIndex = 2
End Select

--  作者:Bin
--  发布时间:2013/4/3 16:21:00
--  
发例子 代码看起来是没问题的.
--  作者:deliangzhaoe
--  发布时间:2013/4/3 16:38:00
--  
行了,谢谢啊!
把Name改为Text就行了。同样谢谢你!

--  作者:deliangzhaoe
--  发布时间:2013/4/3 16:39:00
--  
谢谢,可以了!
--  作者:deliangzhaoe
--  发布时间:2013/4/3 16:39:00
--  
谢谢,会了,弄好了!