以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]任务栏折叠异常  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=96997)

--  作者:铜豆
--  发布时间:2017/3/3 17:37:00
--  [求助]任务栏折叠异常

图片点击可在新窗口打开查看此主题相关图片如下:k75@%%_b5i4uu9cxn$h{bn.png
图片点击可在新窗口打开查看
任务栏打开时折叠异常,必须点击一下才能正常

--  作者:狐狸爸爸
--  发布时间:2017/3/3 17:45:00
--  
老问题,参考基本功能演示文件中的处理方法,延时折叠
--  作者:有点色
--  发布时间:2017/3/3 18:15:00
--  
 折叠的代码,写到timertick事件,延迟半秒执行,就好了。
--  作者:铜豆
--  发布时间:2017/3/3 23:18:00
--  
请老师给个例子明示
--  作者:有点蓝
--  发布时间:2017/3/4 8:33:00
--  

打开CaseStudy示例“基本功能演示”,窗口:“订单-》导航”,看计时器事件


--  作者:铜豆
--  发布时间:2017/3/4 11:45:00
--  


图片点击可在新窗口打开查看此主题相关图片如下:1488598993(1).jpg
图片点击可在新窗口打开查看

最后一个不能折叠,部分被隐藏或者覆盖

TimerTick


e.Form.TimerEnabled = True
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

老师帮忙看看嘛
[此贴子已经被作者于2017/3/4 12:25:38编辑过]