以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]目录树节点不可见  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138692)

--  作者:lgj716330
--  发布时间:2019/8/3 13:10:00
--  [求助]目录树节点不可见
能够实现目录树节点不可见吗,象导航栏页面一样控制,如果可以要怎么写
Dim Bar  As WinForm.NavBar
Dim tp1 As WinForm.NavPage 

Bar = Forms("目录窗口二").Controls("NavBar1")
 tp1 = Bar.NavPages("权限管理")

If Functions.Execute("ShouQuan","总体控制","系统管理") Then 
tp1.Visible = True
Else
tp1.Visible = False
End If


--  作者:有点蓝
--  发布时间:2019/8/3 14:18:00
--  
目录树节点只能去掉,没有Visible 属性