- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 参考“基本功能演示”中任务栏的做法，结果还是显示紊乱！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53706)
-- 发布时间：2014/7/14 8:52:00
-- 参考“基本功能演示”中任务栏的做法，结果还是显示紊乱！
根据狐友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
-- 发布时间：2014/7/14 8:54:00
--
根据你的图,没看明白什么情况.
-- 发布时间：2014/7/14 8:59:00
--
窗口打开后，除了”按职称级别“页面是展开的，其他页面都是折叠的，但现在的情况是打开窗口后，上面三个页面都消失了，却显示了最后一个页面的一部分，只有点击任何一个任务之后，任务栏才恢复正常显示。
-- 发布时间：2014/7/14 9:01:00
--
请上例子.
-- 发布时间：2014/7/14 9:04:00
--
以下是引用bahamute在2014-7-14 8:59:00的发言：
窗口打开后，除了”按职称级别“页面是展开的，其他页面都是折叠的，但现在的情况是打开窗口后，上面三个页面都消失了，却显示了最后一个页面的一部分，只有点击任何一个任务之后，任务栏才恢复正常显示。
窗口打开后，除了”按职称级别“页面是展开的，其他页面都是折叠的，但现在的情况是打开窗口后，上面三个页面都消失了，却显示了最后一个页面的一部分，只有点击任何一个任务之后，任务栏才恢复正常显示。
AfterLoad事件不要直接写page.Collapsed = True
这句代码，应该都在timertick里面完成。
-- 发布时间：2014/7/14 9:27:00
--
谢谢楼上，这会顾不上做例子了，发现狐表（专业版）出问题了，打开任何一个项目，都会提示”连接错误“，
代码框不能识别e，提示：
---------------------------
错误
---------------------------
编译错误:“e”是“Private”，因此它在此上下文中不可访问。
错误代码：Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
---------------------------
确定
---------------------------
昨天打了系统补丁，但我可以确定没有达狐爸指出的哪一个。
此主题相关图片如下：剪辑_51.jpg
[此贴子已经被作者于2014-7-14 9:28:52编辑过]
-- 发布时间：2014/7/14 9:29:00
--
把加密狗拔出来再插进去，再不行，重启电脑，再不行，对比一下机器码看是否变化
-- 发布时间：2014/7/14 9:30:00
--
重新安装狐表应该就好了.
-- 发布时间：2014/7/14 10:32:00
--
重新安装后恢复正常。
正在研究功能演示里的代码，准备做成动态加载任务栏！
请教：MarkCell = False这句什么含义？
-- 发布时间：2014/7/14 10:35:00
--
回复9楼，这个只是一个全局变量
Public MarkCell As Boolean