以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  菜单栏最小化代码位置  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71316)

--  作者:temblar
--  发布时间:2015/7/9 10:33:00
--  菜单栏最小化代码位置
目的:通过代码设置菜单栏打开时最小化

附件中以下代码到底放哪里合适?放在afterloadproject    loadusersetting   菜单设计中的load中均不工作,求解,谢谢
      
  If GetConfigValue("主控菜单默认",False) = True Then
           RibbonTabs.AllowMinimize = True
           RibbonTabs.minimized = True
        End If

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:管理项目2.foxdb


感谢大红袍解决方案:

 

basemainform.Visible = True
If GetConfigValue("主控菜单默认",False) = True Then
    RibbonTabs.AllowMinimize = True
    RibbonTabs.minimized = True
End If

[此贴子已经被作者于2015/7/9 11:06:35编辑过]

--  作者:大红袍
--  发布时间:2015/7/9 10:41:00
--  

 你这句代码有执行过吗?

 

SaveConfigValue("主控菜单默认",True)


--  作者:temblar
--  发布时间:2015/7/9 10:42:00
--  
执行过
--  作者:大红袍
--  发布时间:2015/7/9 10:57:00
--  

 

[此贴子已经被作者于2015/7/9 10:58:03编辑过]

--  作者:大红袍
--  发布时间:2015/7/9 11:00:00
--  

哦,要把主窗口显示出来

 

basemainform.Visible = True
If GetConfigValue("主控菜单默认",False) = True Then
    RibbonTabs.AllowMinimize = True
    RibbonTabs.minimized = True
End If