- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 新版出现一个小问题，请老大看看。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=8116)
-- 发布时间：2010/9/7 10:17:00
-- 新版出现一个小问题，请老大看看。
大任务栏中TopicPageExpanded代码设置为：
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
但单击任务栏中每一个任务时出现如下图示：只有新版加入以上代码时才出现，不加就正常。
此主题相关图片如下：未命名.jpg
-- 发布时间：2010/9/7 10:22:00
--
哦，没有问题，我打开新版中，有个编码有问题造成的。修改后再登陆的，OK！
-- 发布时间：2010/9/7 10:23:00
--
是新版不支持
With e.Form
.BaseForm.ControlBox = .CanClose
End With