Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
大任务栏中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
但单击任务栏中每一个任务时出现如下图示:只有新版加入以上代码时才出现,不加就正常。
With e.Form
.BaseForm.ControlBox = .CanClose
End With