主题：新版出现一个小问题，请老大看看。

大任务栏中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

哦，没有问题，我打开新版中，有个编码有问题造成的。修改后再登陆的，OK！

是新版不支持 

With e.Form

    .BaseForm.ControlBox =  .CanClose

End With