目的:通过代码设置菜单栏打开时最小化
附件中以下代码到底放哪里合适?放在afterloadproject loadusersetting 菜单设计中的load中均不工作,求解,谢谢
If GetConfigValue("主控菜单默认",False) = True Then
RibbonTabs.AllowMinimize = True
RibbonTabs.minimized = True
End If
感谢大红袍解决方案:
basemainform.Visible = True If GetConfigValue("主控菜单默认",False) = True Then RibbonTabs.AllowMinimize = True RibbonTabs.minimized = True End If |
[此贴子已经被作者于2015/7/9 11:06:35编辑过]