主题：参考“基本功能演示”中任务栏的做法，结果还是显示紊乱！

根据狐友ibehujun的帖子，参考“基本功能演示”中任务栏的做法，结果还是显示紊乱！还有没有什么办法？

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

想要的效果

此主题相关图片如下：剪辑_50.jpg

现实效果

此主题相关图片如下：剪辑_49.jpg

窗口打开后，除了”按职称级别“页面是展开的，其他页面都是折叠的，但现在的情况是打开窗口后，上面三个页面都消失了，却显示了最后一个页面的一部分，只有点击任何一个任务之后，任务栏才恢复正常显示。

谢谢楼上，这会顾不上做例子了，发现狐表（专业版）出问题了，打开任何一个项目，都会提示”连接错误“，

重新安装后恢复正常。