- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]任务栏全部收缩的时候出现异常 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108966)
-- 发布时间：2017/11/1 15:29:00
-- [求助]任务栏全部收缩的时候出现异常
[求助]任务栏全部收缩的时候出现异常，全部展开都是正常的
此主题相关图片如下：捕获.jpg
此主题相关图片如下：捕1.jpg
-- 发布时间：2017/11/1 15:31:00
--
以下内容为程序代码:
1 If e.Form.Controls("CheckBox1").Checked = True
2 Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
3 For Each page As WinForm.TopicPage In tpb.Pages
4
5 page.Collapsed = False
6
7 Next
8 Else
9
10 Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
11 For Each page As WinForm.TopicPage In tpb.Pages
12
13 page.Collapsed = True
14
15 Next
16
17
18 End If
1 If e.Form.Controls("CheckBox1").Checked = True
2 Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
3 For Each page As WinForm.TopicPage In tpb.Pages
4
5 page.Collapsed = False
6
7 Next
8 Else
9
10 Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
11 For Each page As WinForm.TopicPage In tpb.Pages
12
13 page.Collapsed = True
14
15 Next
16
17
18 End If
-- 发布时间：2017/11/1 16:07:00
--
窗口afterload事件：
Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
Dim t = tpb.basecontrol
t.Animation = 0 \'关闭动画效果