我制作了一个左侧的导航,想点击某个内容时,右边出现一个箭头,表示此示是打开状态,但下边这段代码,执行不了,出现了箭头,但不显示页面,请赐教,如下图和代码:
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
e.Link.Text = e.Link.Text & "←"
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
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:截图05.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2013-2/201322713485049333.png)