Foxtable(狐表)用户栏目专家坐堂 → 任务栏中任务执行代码的设置


  共有7663人关注过本帖树形打印复制链接

主题:任务栏中任务执行代码的设置

帅哥哟,离线,有人找我吗?
deliangzhaoe
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:363 积分:3463 威望:0 精华:0 注册:2012/7/24 7:15:00
任务栏中任务执行代码的设置  发帖心情 Post By:2013/3/31 17:51:00 [只看该作者]

请问老师:

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


 回到顶部
帅哥哟,离线,有人找我吗?
czy
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33945 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2013/3/31 21:21:00 [只看该作者]

TopicLinkClick事件设置。

 

SelectedIndex

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

示例

选择第二个页面:

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


 回到顶部
帅哥哟,离线,有人找我吗?
deliangzhaoe
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:363 积分:3463 威望:0 精华:0 注册:2012/7/24 7:15:00
  发帖心情 Post By:2013/4/2 20:06:00 [只看该作者]

首先谢谢你!
但是我还是没弄好:
任务栏中有多个任务,页面集合中也有多个页面,怎样分别点击打开呢?代码如何写呢?
非常感谢!

 回到顶部
帅哥哟,离线,有人找我吗?
deliangzhaoe
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:363 积分:3463 威望:0 精华:0 注册:2012/7/24 7:15:00
  发帖心情 Post By:2013/4/2 21:52:00 [只看该作者]

任务栏中有任务1、任务2、任务3三个任务,对应页面集合中页面1、页面2、页面3,怎样在点击任务1时,打开页面1,点击任务2时打开页面2?
非常感谢老师!

 回到顶部
帅哥哟,离线,有人找我吗?
muhua
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:等待验证 帖子:3855 积分:20692 威望:0 精华:5 注册:2012/6/21 14:03:00
  发帖心情 Post By:2013/4/3 8:16:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
deliangzhaoe
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:363 积分:3463 威望:0 精华:0 注册:2012/7/24 7:15:00
还是不行啊,哥!  发帖心情 Post By: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
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/4/3 16:21:00 [只看该作者]

发例子 代码看起来是没问题的.

 回到顶部
帅哥哟,离线,有人找我吗?
deliangzhaoe
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:363 积分:3463 威望:0 精华:0 注册:2012/7/24 7:15:00
  发帖心情 Post By:2013/4/3 16:38:00 [只看该作者]

行了,谢谢啊!
把Name改为Text就行了。同样谢谢你!

 回到顶部
帅哥哟,离线,有人找我吗?
deliangzhaoe
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:363 积分:3463 威望:0 精华:0 注册:2012/7/24 7:15:00
  发帖心情 Post By:2013/4/3 16:39:00 [只看该作者]

谢谢,可以了!

 回到顶部
帅哥哟,离线,有人找我吗?
deliangzhaoe
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:363 积分:3463 威望:0 精华:0 注册:2012/7/24 7:15:00
  发帖心情 Post By:2013/4/3 16:39:00 [只看该作者]

谢谢,会了,弄好了!

 回到顶部