Foxtable(狐表)用户栏目专家坐堂 → NavBar页面显示和隐藏


  共有1736人关注过本帖树形打印复制链接

主题:NavBar页面显示和隐藏

帅哥哟,离线,有人找我吗?
yifan3429
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2466 积分:22761 威望:0 精华:0 注册:2011/3/29 17:14:00
NavBar页面显示和隐藏  发帖心情 Post By:2016/8/15 20:05:00 [只看该作者]

NavBar

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

我用于 共有窗口  每个部门一页   内置各部门功能连接      想实现打开时  只显示部门相关的页面  其他的隐藏 

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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

 


 回到顶部