以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论]进入软件后，导航栏的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101601)
--  作者：静听枫雨
--  发布时间：2017/6/3 19:20:00
--  [讨论]进入软件后，导航栏的问题


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20170603191510.png
图片点击可在新窗口打开查看


控件用的是任务栏TopicBar

打开软件后，左边的导航栏，默认全是展开的
能不能让它默认收起来 或者只留最后一个展开，其它的收起
[此贴子已经被作者于2017/6/3 19:20:26编辑过]
--  作者：有点色
--  发布时间：2017/6/4 11:44:00
--  

参考

 

Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
For Each page As WinForm.TopicPage In tpb.Pages
    page.Collapsed = True
Next