- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]通过TopicBar怎么获取到上层NavBar的NavPage (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95518)
-- 发布时间：2017/1/22 14:47:00
-- [求助]通过TopicBar怎么获取到上层NavBar的NavPage
我用NavBar嵌套TopicBar做导航功能，要实现权限控制TopicLink的显示，如果TopicBar中没有可访问的topiclink，对应NavBar的NavPage也不显示，怎么可以通过topicbar获取到上层的NavPage对象，从而控制是否显示
-- 发布时间：2017/1/22 15:43:00
--
做一个表 动态生成导航 像我这样
此主题相关图片如下：qq截图20170122154119.png
此主题相关图片如下：qq截图20170122154224.png
这里面的TopicLink 和page都是根据权限动态生成的 每个人看到的不一样
-- 发布时间：2017/1/22 18:15:00
--
这样写
Dim npg As WinForm.NavPage = e.Sender.parent
msgbox(npg.ButtonText)
-- 发布时间：2017/3/3 14:54:00
--
这样写
Dim npg As WinForm.NavPage = e.Sender.parent
msgbox(npg.ButtonText)
老师，我是想在窗口加载的时候，根据权限设置，来控制NavPage是否显示； 如果NavPage内的TopicBar是显示的则设置NavPage显示，否则不显示，我现在通过很笨的方法实现了，如果可以通过TopicBar找到包含它的NavPage就简单了。
Dim nb As WinForm.NavBar = e.Form.Controls("NavBar1")
Dim tb_base As WinForm.TopicBar = e.Form.controls("tb_base")
npVisible = False
For Each tp As WinForm.TopicPage In tb_base.Pages
tpVisible=False
For Each tl As WinForm.TopicLink In tp.Links
boolVisible = Functions.Execute("CheckRight",tl.name) --返回true或False
If boolVisible = True AndAlso tpVisible=False Then
tpVisible = True
End If
tl.Visible = boolVisible
Next
If tpVisible=True AndAlso npVisible=False Then
npVisible=True
End If
tp.Visible=tpVisible
Next
For Each np As WinForm.NavPage In nb.NavPages
If np.Name="np_base" Then
np.Visible=npVisible
End If
Next
-- 发布时间：2017/3/3 17:57:00
--
直接写不就行了？
Dim tb_base As WinForm.TopicBar = e.Form.controls("tb_base")
Dim npg As WinForm.NavPage = tb_base.parent
npg.Visible = tb_base.Visible
-- 发布时间：2017/3/4 10:20:00
--
直接写不就行了？
Dim tb_base As WinForm.TopicBar = e.Form.controls("tb_base")
Dim npg As WinForm.NavPage = tb_base.parent
npg.Visible = tb_base.Visible
-- 发布时间：2017/3/4 11:57:00
--
按照你4楼的方式处理吧