Foxtable(狐表)用户栏目专家坐堂 → [求助]区能区隐藏的问题


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

主题:[求助]区能区隐藏的问题

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


加好友 发短信
等级:幼狐 帖子:94 积分:1209 威望:0 精华:0 注册:2015/3/21 14:25:00
  发帖心情 Post By:2020/2/14 21:16:00 [只看该作者]

老师,如何实现当菜单的最后一组功能区被隐藏后,显示背景主窗口

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


加好友 发短信
等级:超级版主 帖子:43305 积分:219967 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/14 21:18:00 [只看该作者]

什么背景主窗口?截图说明一下

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


加好友 发短信
等级:幼狐 帖子:94 积分:1209 威望:0 精华:0 注册:2015/3/21 14:25:00
  发帖心情 Post By:2020/2/14 21:35:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:物流系统-演示2.table

我在菜单下工具栏做了个关闭按钮,用于关闭当前的主表及相应的功能区,现在在想实现的是关闭最后一个表或者功能区后,系统显示的是我设定好的主窗口--“背景窗口”
[此贴子已经被作者于2020/2/14 21:39:19编辑过]

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


加好友 发短信
等级:超级版主 帖子:43305 积分:219967 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/14 21:46:00 [只看该作者]

关闭按钮最后加一句:
MainTable = Tables("表A")

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


加好友 发短信
等级:幼狐 帖子:94 积分:1209 威望:0 精华:0 注册:2015/3/21 14:25:00
  发帖心情 Post By:2020/2/14 21:51:00 [只看该作者]

不行啊,这样的话是只要关掉任意一个表就回到主窗口,我是想关闭最后一个才回到主窗口

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


加好友 发短信
等级:超级版主 帖子:43305 积分:219967 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/14 21:52:00 [只看该作者]

遍历一下功能区,如果所有的都已经隐藏,则调用14楼的代码

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


加好友 发短信
等级:幼狐 帖子:94 积分:1209 威望:0 精华:0 注册:2015/3/21 14:25:00
  发帖心情 Post By:2020/2/14 22:13:00 [只看该作者]

For Each rts As RibbonMenu.Tab In RibbonTabs
    If rts.Visible = False Then
        MainTable = Tables("表A")
    End If
Next

 

这代码是不是写得不对,还是不行啊


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


加好友 发短信
等级:超级版主 帖子:43305 积分:219967 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/14 22:16:00 [只看该作者]

For Each rts As RibbonMenu.Tab In RibbonTabs
    If rts.Visible Then
        return
    End If
Next
MainTable = Tables("表A")

 回到顶部
总数 18 上一页 1 2