- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]任务栏展开页面的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=17156)
-- 发布时间：2012/3/5 12:25:00
-- [求助]任务栏展开页面的问题
Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
For Each page As WinForm.TopicPage In tpb.Pages
If page.Name <> e.Page.Name Then
page.Collapsed = True
End If
Next
执行上面语句后，从下往上展开时没问题，展开一个收缩一个。但从上往下就有毛病了，会出现同时展开的现象，问题在哪儿？
-- 发布时间：2012/3/5 12:35:00
--
做个例子看看。
-- 发布时间：2012/3/5 12:45:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:任务栏.table |
做了个例子，您看下
-- 发布时间：2012/3/5 14:24:00
--
不明白为什么这样，也许控件有bug吧。
-- 发布时间：2012/3/5 14:50:00
--
但是在“基本功能演示里”就没有问题啊，不过我发现那是在TimerTick中写的代码，看不明白...