| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 关于TopicBar任务栏，伸展问题？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=5550) |
| -- 作者：baoxyang -- 发布时间：2009/12/18 17:24:00 -- 关于TopicBar任务栏，伸展问题？ 在TopicBar任务栏，所有页面默认为不伸展，在选择不同的任务页面中时，可以设计其它页面不伸展，只有目前的页面伸展。不知目前是否可以达到此要求？请教各位了！ |
| -- 作者：lihe60 -- 发布时间：2009/12/19 8:31:00 -- 我也有这方面的求助。 |
| -- 作者：blackzhu -- 发布时间：2009/12/19 10:59:00 -- Collapsed 逻辑型，设为True，折叠页面，设为False，展开页面。 示例 展开名为"项目"的页面： Dim tp As WinForm.TopicPagetp = Forms("窗口1").Controls("TopicBar1").Pages("项目") tp.Collapsed = False
|
| -- 作者：yangming -- 发布时间：2009/12/19 11:03:00 -- Collapsed 逻辑型，设为True，折叠页面，设为False，展开页面。 示例 展开名为"项目"的页面： Dim tp As WinForm.TopicPagetp = Forms("窗口1").Controls("TopicBar1").Pages("项目") tp.Collapsed = False |
| -- 作者：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 |
| -- 作者：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 这段代码有错吗? |
| -- 作者：yangming -- 发布时间：2009/12/19 12:31:00 -- e.Form.Controls("TopicBar1").Pages("页面1").Collapsed = False 改成下面代码试试 e.Form.Controls("TopicBar1").Pages(0).Collapsed = False |
| -- 作者：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 没有用?几个办法都试过了. |
| -- 作者：czy -- 发布时间：2009/12/19 12:51:00 -- 没有单击页面执行的事件，我不知道应该怎么去解决这个问题。 |
| -- 作者：blackzhu -- 发布时间：2009/12/19 13:19:00 -- 以下是引用czy在2009-12-19 12:51:00的发言：
没有单击页面执行的事件，我不知道应该怎么去解决这个问题。 是啊,动了不少脑筋都不行 |