- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [讨论]导航代码问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=29092)
-- 发布时间：2013/2/27 13:50:00
-- [讨论]导航代码问题
我制作了一个左侧的导航,想点击某个内容时,右边出现一个箭头,表示此示是打开状态,但下边这段代码,执行不了,出现了箭头,但不显示页面,请赐教,如下图和代码:
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
此主题相关图片如下：截图05.png
-- 发布时间：2013/2/27 13:54:00
--
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 & "←"
-- 发布时间：2013/2/27 14:28:00
--
谢谢狐爸,成功了,还有,导航条上当点击基础数据表后,再点击数据录入表时,基础数据表下边的内容自动缩回,请给上代码,谢谢,如下图和代码如下:
此主题相关图片如下：截图06.png
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 & "←" |
-- 发布时间：2013/2/27 14:31:00
--
没有这个功能的，想搞的话，参考基本功能演示文件的“导航”窗口。
-- 发布时间：2013/2/27 14:34:00
--
我看了,看不懂,不知道哪个是,怎么加,学习不容易,请指导