--
此主题相关图片如下:1488598993(1).jpg

最后一个不能折叠,部分被隐藏或者覆盖
TimerTick
e.Form.TimerEnabled = True
Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
For Each page As WinForm.TopicPage In tpb.Pages
If page.Name <> e.Form.Text Then
page.Collapsed = True
End If
Next
老师帮忙看看嘛
[此贴子已经被作者于2017/3/4 12:25:38编辑过]