- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]则边栏显示的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103813)
-- 发布时间：2017/7/17 17:55:00
-- [求助]则边栏显示的问题
此主题相关图片如下：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
[此贴子已经被作者于2017/7/17 17:57:13编辑过]
-- 发布时间：2017/7/17 18:11:00
--
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