主题：[讨论]导航代码问题

我制作了一个左侧的导航,想点击某个内容时,右边出现一个箭头,表示此示是打开状态,但下边这段代码,执行不了,出现了箭头,但不显示页面,请赐教,如下图和代码:

baseMainform.SuspendLayout
Dim tbp As WinForm.TopicBar = e.Form.Controls("TopicBar1")
For Each pg As WinForm.TopicPage In tbp.Pages
    For Each lnk As WinForm.TopicLink In pg.Links
        lnk.Text = lnk.Text.Trim("←")
    Next
Next
Select Case e.Link.Text
     Case "单位基础数据"        
         MainTable = Tables("单位基础数据")
     Case "人员流水帐"        
         MainTable = Tables("人员流水帐")
     Case "人员增减"        
         MainTable = Tables("人员增减")
     Case "信息表"        
         MainTable = Tables("信息表")
     Case "登记审批签"        
         MainTable = Tables("登记审批签")
     Case "备案汇总表"        
         MainTable = Tables("信息表")
    Case "备案汇总表打印"        
         MainTable = Tables("信息表")
     Case "人员变动情况明细"        
         MainTable = Tables("人员增减")
     Case "人员明细表打印"        
         MainTable = Tables("人员增减")
     Case "数据汇总统计"        
         MainTable = Tables("数据汇总统计")
     Case "数据汇总表打印"        
         MainTable = Tables("数据汇总统计")
    Case "备案人员查询"        
         MainTable = Tables("人员增减")
Case "文电信息处理"        
         MainTable = Tables("文电信息表")
Case "批文信息处理"        
         MainTable = Tables("批文信息表")
End Select
e.Link.Text = e.Link.Text & "←"

谢谢狐爸,成功了,还有,导航条上当点击基础数据表后,再点击数据录入表时,基础数据表下边的内容自动缩回,请给上代码,谢谢,如下图和代码如下:

没有这个功能的，想搞的话，参考基本功能演示文件的“导航”窗口。

 

我看了,看不懂,不知道哪个是,怎么加,学习不容易,请指导