以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  隐藏菜单速度很慢  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85920)

--  作者:jswalley
--  发布时间:2016/6/5 20:26:00
--  隐藏菜单速度很慢
For Each t As RibbonMenu.Tab In RibbonTabs    \'菜单隐藏
    t.Visible = bShow
Next

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

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

--  作者:大红袍
--  发布时间:2016/6/5 21:07:00
--  

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

 

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

a.height = 30


--  作者:jswalley
--  发布时间:2016/6/5 21:34:00
--  
设置这个高度之后,我原来上面有一个标题窗口,最上面显示了白色的边。高度设置成0也是这样。
--  作者:大红袍
--  发布时间:2016/6/5 21:48:00
--  

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

a.Visible = False


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

--  作者:大红袍
--  发布时间:2016/6/5 21:53:00
--  

LockBaseMainForm

 

 

UnLockBaseMainForm


--  作者:jswalley
--  发布时间:2016/6/5 22:05:00
--  
谢谢。