- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- TopicBar自动折叠界面紊乱的BUG (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=50553)
-- 发布时间：2014/5/8 22:09:00
-- TopicBar自动折叠界面紊乱的BUG
各位高手，有没有遇到过这个情况？
TopicBar自动折叠后界面紊乱了，感觉自动折叠代码的执行效率很低，
此主题相关图片如下：snip20140508_40.png
正常的应该是
此主题相关图片如下：snip20140508_41.png
设置的自动折叠代码如下：
窗口》AfterLoad事件
\'初始导航折叠
For Each page As WinForm.TopicPage In e.Form.Controls("TopicBar1").pages
If page.Name <> "项目计划" \'设置初始展开项
page.Collapsed = True
End If
Next
TopicBar控件》TopicPageExpanded事件
Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
For Each page As WinForm.TopicPage In tpb.Pages
If page.Name <> e.Page.Name Then
page.Collapsed = True
End If
Next
示例文件中“基本功能演示”使用了TimeTick的功能，实现折叠的时点判断。
-- 发布时间：2014/5/8 22:11:00
--
要处理一下，把代码写到计时器 timertick 事件里，
延迟100毫秒执行。
-- 发布时间：2014/5/8 22:12:00
--
参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=49793&skin=0
-- 发布时间：2014/5/8 22:28:00
--
多谢甜兄，这个瑕疵我先忍着...
-- 发布时间：2014/5/8 23:28:00
--
参考了狐爸在“基本功能演示”中的做法，总结一下，供大家参考
1. 窗口》AfterLoad事件\'初始导航折叠
For Each page As WinForm.TopicPage In e.Form.Controls("TopicBar1").pages
If page.Name <> "项目计划" \'设置初始展开项
page.Collapsed = True
End If
Next
2. 窗口》TimerTick事件
e.Form.TimerEnabled = False
Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
For Each page As WinForm.TopicPage In tpb.Pages
If page.Name <> e.Form.Text Then
page.Collapsed = True
End If
Next
3. TopicBar控件》TopicPageExpanded事件
e.Form.Text = e.Page.Name
e.Form.TimerEnabled = True
e.Form.TimerInterval = 350