如何控制任务栏（topicbar）只打开一个页面 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何控制任务栏（topicbar）只打开一个页面

共有15783人关注过本帖树形打印复制链接主题：如何控制任务栏（topicbar）只打开一个页面

擎天柱

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

加好友

发短信

等级：二尾狐帖子：542 积分：4243 威望：0 精华：4 注册：2008/9/1 8:27:00

如何控制任务栏（topicbar）只打开一个页面 发帖心情

Post By：2009/9/6 14:22:00 [只看该作者]

如题，我想：单击当前页面的时候，其它的页面都折叠收起，不知怎么写代码。设有5个页面：1，2，3，4，5，将以下代码加到click事件，可将其它页面折叠收起，但无法对当前页面进行控制。
for i as byte=0 to 4
Forms("窗口1").Controls("TopicBar1").Pages(i).Collapsed = true
next

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/9/6 14:33:00 [只看该作者]

这个对你有用吗？：

TopicLink

表示一个任务栏中的任务。
通过页面的TopicLinks属性，可以访问指定位置或名称的任务。

示例
Dim tl1 As WinForm.TopicLink
Dim tl2 As WinForm.TopicLink
tl1 = Forms("窗口1").Controls("TopicBar1").Pages(0).Links(0)
tl2 = Forms("窗口1").Controls("TopicBar1").Pages("项目").Links("打开")