关于TopicBar任务栏，伸展问题？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于TopicBar任务栏，伸展问题？

共有15561人关注过本帖树形打印复制链接主题：关于TopicBar任务栏，伸展问题？

baoxyang

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

加好友

发短信

等级：狐精帖子：3313 积分：23134 威望：0 精华：1 注册：2009/3/31 11:25:00

关于TopicBar任务栏，伸展问题？ 发帖心情

Post By：2009/12/18 17:24:00 [只看该作者]

在TopicBar任务栏，所有页面默认为不伸展，在选择不同的任务页面中时，可以设计其它页面不伸展，只有目前的页面伸展。不知目前是否可以达到此要求？请教各位了！

lihe60

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

加好友

发短信

等级：狐神帖子：6842 积分：43288 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2009/12/19 8:31:00 [只看该作者]

我也有这方面的求助。

blackzhu

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

加好友

发短信

等级：狐仙帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2009/12/19 10:59:00 [只看该作者]

Collapsed

逻辑型，设为True，折叠页面，设为False，展开页面。

示例

展开名为"项目"的页面：

Dim tp As WinForm.TopicPage
tp = Forms("窗口1").Controls("TopicBar1").Pages("项目")
tp.Collapsed = False

yangming

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

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/12/19 11:03:00 [只看该作者]

Collapsed

逻辑型，设为True，折叠页面，设为False，展开页面。

示例

展开名为"项目"的页面：

Dim tp As WinForm.TopicPage
tp = Forms("窗口1").Controls("TopicBar1").Pages("项目")
tp.Collapsed = False

yangming

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

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/12/19 11:20:00 [只看该作者]

e.Form.Controls("TopicBar1").Pages(0).Collapsed =False
e.Form.Controls("TopicBar1").Pages(1).Collapsed = True
e.Form.Controls("TopicBar1").Pages(2).Collapsed = True

blackzhu

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

加好友

发短信

等级：狐仙帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2009/12/19 12:19:00 [只看该作者]

yang版,我理解上面的意思,如果说本来有两个页面是打开的,一个折叠的.在点击那个折叠的页面时,另外原来打开的页面自动折叠了,我试了很多次都没有用.
Select Case e.Link.Name
Case "页面1"
if e.Form.Controls("TopicBar1").Pages("页面1").Collapsed = False then
            e.Form.Controls("TopicBar1").Pages("页面2").Collapsed = True
      Else
            e.Form.Controls("TopicBar1").Pages("页面2").Collapsed = False
End if

End Select

这段代码有错吗?

yangming

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

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/12/19 12:31:00 [只看该作者]

e.Form.Controls("TopicBar1").Pages("页面1").Collapsed = False 改成下面代码试试
e.Form.Controls("TopicBar1").Pages(0).Collapsed = False

blackzhu

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

加好友

发短信

等级：狐仙帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2009/12/19 12:40:00 [只看该作者]

以下是引用yangming在2009-12-19 12:31:00的发言：
e.Form.Controls("TopicBar1").Pages("页面1").Collapsed = False 改成下面代码试试
e.Form.Controls("TopicBar1").Pages(0).Collapsed = False

没有用?几个办法都试过了.