你这个可以参考下
帮助演示文件.table
那么多导航都是关闭的
代码如下
For Each page As WinForm.TopicPage In tpb.Pages
If page.Name <> e.Form.Text Then
page.Collapsed = True
End If
Next
加好友 
发短信
Post By：2013/5/21 23:28:00 [显示全部帖子]
