Foxtable(狐表)用户栏目专家坐堂 → [求助]点击模式窗口中不同按钮,显示不同的功能区


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

主题:[求助]点击模式窗口中不同按钮,显示不同的功能区

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


加好友 发短信
等级:小狐 帖子:349 积分:3600 威望:0 精华:0 注册:2014/4/11 16:05:00
[求助]点击模式窗口中不同按钮,显示不同的功能区  发帖心情 Post By:2018/2/23 15:07:00 [只看该作者]

请问:点击模式窗口中不同按钮,显示不同的功能区中遇到问题:

在按钮click事件中代码:
RibbonTabs("Table").Visible = False
RibbonTabs("Project").Visible = true
问题:
每次必须关闭窗口,才能显示“project”功能区。体验不好,请问如何解决?



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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/23 15:12:00 [只看该作者]

你贴出来的代码没问题,和你的描述不符。

 

请具体一点你的问题,或者做个例子发上来测试。


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


加好友 发短信
等级:小狐 帖子:349 积分:3600 威望:0 精华:0 注册:2014/4/11 16:05:00
具体例子如下:  发帖心情 Post By:2018/2/23 16:47:00 [只看该作者]

打开后,点击picture,必须关闭整个窗口才能显示菜单。
想实现:点击后,直接显示菜单,不要关闭窗口。谢谢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/23 16:54:00 [只看该作者]

代码改成

 

basemainform.visible = True
Syscmd.Project.OpenUserMenu()
RibbonTabs("table").Visible = True


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


加好友 发短信
等级:小狐 帖子:349 积分:3600 威望:0 精华:0 注册:2014/4/11 16:05:00
  发帖心情 Post By:2018/2/23 17:02:00 [只看该作者]

多谢老师,能实现,如何让菜单显示在窗口前面可以吗?怎么实现呢?
[此贴子已经被作者于2018/2/23 17:06:44编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/23 17:20:00 [只看该作者]

以下是引用wendude在2018/2/23 17:02:00的发言:
多谢老师,能实现,如何让菜单显示在窗口前面可以吗?怎么实现呢?
[此贴子已经被作者于2018/2/23 17:06:44编辑过]

 

不可以,显示了你也无法操作菜单,因为你这个是模式窗口。

 

请具体说明你为什么要这样做,用独立窗口不行?


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


加好友 发短信
等级:小狐 帖子:349 积分:3600 威望:0 精华:0 注册:2014/4/11 16:05:00
  发帖心情 Post By:2018/2/23 17:28:00 [只看该作者]

上述代码可以实现,但是所有的表点击后都显示出来了,能否隐藏?

代码已经加入:
If User.Type <> UserTypeEnum.Developer
    TableCaptionVisible = 
False

End
 If
没有起作用


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/23 17:31:00 [只看该作者]

隐藏表参考代码

 

For Each t As Table In Tables
    t.visible = False
Next


 回到顶部