以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  任务栏不能完全折叠  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86639)
--  作者：hqy168168
--  发布时间：2016/6/22 13:09:00
--  任务栏不能完全折叠
1、窗口的AfterLoad代码：

Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar")

For Each pg As WinForm.TopicPage In tpb.Pages

    If pg.Collapsed = False Then

        pg.Collapsed = True

    End If

Next

2、窗口开启了计时器，间隔1秒

3、当前使用的是2016.06.21开发版


问题：1、预览床口后，发现每个页面不能完全折叠，每个页面都有部分任务露出在任务栏上

      2、随便点击某个页面后，每个页面才折叠，同时点击的页面展开



请高手指点怎么处理
--  作者：大红袍
--  发布时间：2016/6/22 14:28:00
--  
afterLoad事件代码，写到计时器去。最后再写代码把计时器关闭。