以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  NavBar页面显示和隐藏  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89104)
--  作者：yifan3429
--  发布时间：2016/8/15 20:05:00
--  NavBar页面显示和隐藏
NavBar

如何控制页面显示和隐藏问题

我用于 共有窗口  每个部门一页   内置各部门功能连接      想实现打开时  只显示部门相关的页面  其他的隐藏 
--  作者：大红袍
--  发布时间：2016/8/15 20:25:00
--  

 

Dim Bar As WinForm.NavBar
Bar = e.Form.Controls("NavBar1")
For Each p As WinForm.NavPage In bar.NavPages
    If p.Butt Then
        p.Visible = True
    Else
        p.Visible = False
    End If
Next