标题：关于TopicBar任务栏，伸展问题？

1楼

baoxyang 发表于：2009/12/18 17:24:00

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

2楼

lihe60 发表于：2009/12/19 8:31:00

我也有这方面的求助。

3楼

blackzhu 发表于：2009/12/19 10:59:00

Collapsed

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

示例

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

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

4楼

yangming 发表于：2009/12/19 11:03:00

Collapsed

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

示例

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

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

5楼

yangming 发表于：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

6楼

blackzhu 发表于：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

这段代码有错吗?

7楼

yangming 发表于：2009/12/19 12:31:00

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

8楼

blackzhu 发表于：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

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

9楼

czy 发表于：2009/12/19 12:51:00

没有单击页面执行的事件，我不知道应该怎么去解决这个问题。

10楼

blackzhu 发表于：2009/12/19 13:19:00

以下是引用czy在2009-12-19 12:51:00的发言：
没有单击页面执行的事件，我不知道应该怎么去解决这个问题。

是啊,动了不少脑筋都不行

共20 条记录, 每页显示 10 条, 页签: [1] [2]