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

根据狐友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

根据你的图,没看明白什么情况.

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

请上例子.

 

AfterLoad事件不要直接写page.Collapsed = True

 

这句代码，应该都在timertick里面完成。

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

 把加密狗拔出来再插进去，再不行，重启电脑，再不行，对比一下机器码看是否变化

重新安装狐表应该就好了.

重新安装后恢复正常。

回复9楼，这个只是一个全局变量

 

 

Public MarkCell As Boolean