Foxtable(狐表)用户栏目专家坐堂 → 任务栏控件问题(非项目菜单)--开发版项目


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

主题:任务栏控件问题(非项目菜单)--开发版项目

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/1/13 15:22:00 [显示全部帖子]


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/1/13 16:05:00 [显示全部帖子]

一样类似的,给你做个参考,具体你自己灵活控制

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1 (1).foxdb



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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/1/13 17:28:00 [显示全部帖子]

和2楼的帮助帖子是一样的,只不过把操作菜单改为操作 任务栏而已


Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
tpb.Pages(2).Links("员工1").Visible=False '操作任务栏第三个页面,员工1这个连接 
For Each p As WinForm.TopicPage In tpb.Pages
  If p.Name="经理" Then
     p.Visible=False   '操作名称为 经理 的这个页面.
  End If
Next

 回到顶部