Foxtable(狐表)用户栏目专家坐堂 → 如何关闭系统菜单


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

主题:如何关闭系统菜单

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


加好友 发短信
等级:童狐 帖子:211 积分:1948 威望:0 精华:0 注册:2017/3/6 20:47:00
如何关闭系统菜单  发帖心情 Post By:2019/4/10 20:32:00 [只看该作者]

今天刚发布一个程序给同事们使用,还不到半小时就把我的数据库资料清空了(可能使用初始化项目),郁闷啊,还好有数据库有备份。由于给同事使用的都是采用窗口录入资料的,不显示表的,用不了菜单的功能,为了避免同事乱操作,想取消菜单的显示,请问下老师如何实现

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


加好友 发短信
等级:狐精 帖子:3206 积分:21316 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2019/4/10 21:05:00 [只看该作者]

Dim a As object = BaseMainForm.controls("C1Ribbon1")
a.Visible = not a.visible

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


加好友 发短信
等级:童狐 帖子:211 积分:1948 威望:0 精华:0 注册:2017/3/6 20:47:00
  发帖心情 Post By:2019/4/10 21:13:00 [只看该作者]

请问楼上的朋友,这个代码写在哪个事件上?

[此贴子已经被作者于2019/4/10 21:16:09编辑过]

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


加好友 发短信
等级:童狐 帖子:211 积分:1948 威望:0 精华:0 注册:2017/3/6 20:47:00
  发帖心情 Post By:2019/4/10 21:31:00 [只看该作者]

已经知道如何操作了,谢谢


 回到顶部