Foxtable(狐表)用户栏目专家坐堂 → [分享] 菜单动态操作中非常有用的一对原生方法


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

主题:[分享] 菜单动态操作中非常有用的一对原生方法

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


加好友 发短信
等级:版主 帖子:1693 积分:12135 威望:0 精华:7 注册:2013/7/11 10:52:00
[分享] 菜单动态操作中非常有用的一对原生方法  发帖心情 Post By:2016/6/6 10:17:00 [只看该作者]

C1的C1Ribbon有一对非常有用的方法(C1Ribbon).BeginUpdate() 和 (C1Ribbon).EndUpdate()

 

相当于StopRedraw和ResumeRedraw (也就是停止重绘和开始重绘),可以改善用户体验。

 

 

 

 使用方法


 

Dim a As C1Ribbon.C1Ribbon = BaseMainForm.controls("C1Ribbon1")
a.BeginUpdate()
For Each t As C1Ribbon.RibbonTab In a.Tabs    '菜单隐藏
    t.Visible = True
Next
a.EndUpdate()

 

1、Dim a As C1Ribbon.C1Ribbon = BaseMainForm.controls("C1Ribbon1")
获取菜单的原生对象。建议在全局代码中建立一个函数统一获取,防止以后升级时变更,如:

Public Function GetRibbon() As C1Ribbon.C1Ribbon

    return  BaseMainForm.controls("C1Ribbon1")

End Function

 

将代码改成

Dim a As C1Ribbon.C1Ribbon = GetRibbon()

 

2、a.BeginUpdate()   

停止重绘

 

3、对菜单操作

这里可以用狐表自身的方法

如:

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

 

4、a.EndUpdate()

刷新菜单

 


[此贴子已经被作者于2017/12/16 8:46:57编辑过]

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


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

 瞧瞧

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2016/6/6 10:44:00 [只看该作者]

下载看看,老大这个是我以前一直要找的东西
[此贴子已经被作者于2016/6/6 10:44:44编辑过]

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


加好友 发短信
等级:四尾狐 帖子:862 积分:10841 威望:0 精华:0 注册:2016/5/6 14:34:00
  发帖心情 Post By:2016/6/6 10:54:00 [只看该作者]

 学习一下

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


加好友 发短信
等级:七尾狐 帖子:1732 积分:11266 威望:0 精华:0 注册:2011/12/15 22:06:00
  发帖心情 Post By:2016/6/6 11:01:00 [只看该作者]

学习下

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


加好友 发短信
等级:二尾狐 帖子:532 积分:4548 威望:0 精华:0 注册:2013/4/27 22:20:00
  发帖心情 Post By:2016/6/6 11:13:00 [只看该作者]

图片点击可在新窗口打开查看

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


加好友 发短信
等级:狐神 帖子:4752 积分:34568 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2016/6/6 11:31:00 [只看该作者]

何止是逛逛?

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


加好友 发短信
等级:二尾狐 帖子:388 积分:5098 威望:0 精华:0 注册:2013/11/2 0:01:00
  发帖心情 Post By:2016/6/6 11:33:00 [只看该作者]

瞧瞧

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


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2016/6/6 12:40:00 [只看该作者]

学习

 回到顶部
帅哥哟,离线,有人找我吗?
晕了快扶我
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1207 积分:7224 威望:0 精华:0 注册:2013/3/4 18:02:00
  发帖心情 Post By:2016/6/6 12:58:00 [只看该作者]

 订

 回到顶部
总数 76 1 2 3 4 5 6 7 8 下一页