Foxtable(狐表)用户栏目专家坐堂 → 隐藏菜单速度很慢


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

主题:隐藏菜单速度很慢

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


加好友 发短信
等级:二尾狐 帖子:529 积分:4695 威望:0 精华:0 注册:2012/7/4 16:22:00
隐藏菜单速度很慢  发帖心情 Post By:2016/6/5 20:26:00 [只看该作者]

For Each t As RibbonMenu.Tab In RibbonTabs    '菜单隐藏
    t.Visible = bShow
Next

我执行这个代码,速度很慢,菜单要好一会才隐藏和显示。

我还屏蔽了原来菜单选择的代码,还是很慢,要五六秒钟,有没有简单快速的隐藏菜单的代码?
[此贴子已经被作者于2016/6/5 20:29:02编辑过]

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/5 21:07:00 [只看该作者]

要不就直接设置高度。隐藏,就是会那么慢的。

 

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

a.height = 30


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


加好友 发短信
等级:二尾狐 帖子:529 积分:4695 威望:0 精华:0 注册:2012/7/4 16:22:00
  发帖心情 Post By:2016/6/5 21:34:00 [只看该作者]

设置这个高度之后,我原来上面有一个标题窗口,最上面显示了白色的边。高度设置成0也是这样。

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/5 21:48:00 [只看该作者]

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

a.Visible = False


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


加好友 发短信
等级:二尾狐 帖子:529 积分:4695 威望:0 精华:0 注册:2012/7/4 16:22:00
  发帖心情 Post By:2016/6/5 21:52:00 [只看该作者]

这个可以,谢谢。 菜单显示和隐藏会有闪动,总界面有没有类似 StopRedraw和ResumeRedraw 的函数功能
[此贴子已经被作者于2016/6/5 21:52:25编辑过]

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/5 21:53:00 [只看该作者]

LockBaseMainForm

 

 

UnLockBaseMainForm


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


加好友 发短信
等级:二尾狐 帖子:529 积分:4695 威望:0 精华:0 注册:2012/7/4 16:22:00
  发帖心情 Post By:2016/6/5 22:05:00 [只看该作者]

谢谢。

 回到顶部