主题：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

示例文件中“基本功能演示”使用了TimeTick的功能，实现折叠的时点判断。

多谢甜兄，这个瑕疵我先忍着...

参考了狐爸在“基本功能演示”中的做法，总结一下，供大家参考

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