主题：[求助]则边栏显示的问题

此主题相关图片如下：tim截图20170717175623.jpg

 

 以下代码打开后，侧边栏打开后全是闭合的，如何让它默认，最下面一个 展开 呢

 

Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
Dim t = tpb.basecontrol
t.Animation = 1
For Each page As WinForm.TopicPage In tpb.Pages
    page.Collapsed = True
Next
Dim ns() As String = {"基础设置","订单管理","后期管理","采购管理","客户管理","商家管理","财务管理"}
For i As Integer = 0 To ns.Length - 1
    e.Form.Controls("TopicBar1").Pages(ns(i)).Collapsed = True
Next
 

此主题相关图片如下：tim截图20170713183613.jpg

Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
Dim t = tpb.basecontrol
t.Animation = 1
For Each page As WinForm.TopicPage In tpb.Pages
    page.Collapsed = True
Next
tpb.Pages(tpb.Pages.Count-1).Collapsed = False