主题：如何选定topicbar 的页面

对应代码 是什么

你理解错了 我的意思是窗口的按钮 点击它 能展开topicbar的页面3，按钮代码如何写

我把这个控件放到共有窗口去的 我想隐藏共有窗口 写了代码

 If e.sender.Text = "左侧导航" Then
            Forms("导航").visible=False
            e.sender.Text = "显示导航栏"
            e.sender.ToolTip = "显示导航栏"
            e.sender.SmallImage = getimage("out.png")
        Else
            Forms("导航").visible=True
            e.sender.text = "左侧导航"
            e.sender.ToolTip   = "隐藏导航栏"
            e.sender.SmallImage = getimage("in.png")
        End If

就是隐藏不了

Forms("导航").show()
Dim tpb As WinForm.TopicBar = forms("导航").Controls("TopicBar1")
For Each page As WinForm.TopicPage In tpb.Pages
    If page.Name <> "页面1" Then
        page.visible = False
Else
        page.visible =True

    End If
Next