| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]隐藏菜单栏原有位置出现空白 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=125511) |
|
| -- 作者：紫色幽魂 -- 发布时间：2018/9/29 17:49:00 -- [求助]隐藏菜单栏原有位置出现空白 快速访问栏做了个按钮，显示和隐藏菜单栏，这个只有在第一次进入软件的时候有用，后面再软件界面点击或者操作过再点击这个按钮，菜单栏是隐藏了，但是在原来的菜单栏位置显示的就是一个空白的界面，这个界面就不再缩回去隐藏掉，是怎么回事 Dim a As object = BaseMainForm.controls("C1Ribbon1") If e.ToggleButton.Pressed = True For Each r As RibbonMenu.Tab In RibbonTabs r.visible = False Next ApplicationMenu.visible = False ConfigBar.Visible = False Else For Each r As RibbonMenu.Tab In RibbonTabs r.visible = True Next ApplicationMenu.visible = True ConfigBar.Visible = True End If
|
|
| -- 作者：有点蓝 -- 发布时间：2018/9/30 8:42:00 --
|
|
| -- 作者：紫色幽魂 -- 发布时间：2018/9/30 9:29:00 -- 回复：（有点蓝） BaseMainForm.co... 但是这样快速访问栏也隐藏了，我要留住快速访问栏，因为那个按钮就做在快速访问栏里了 |
|
| -- 作者：有点蓝 -- 发布时间：2018/9/30 10:33:00 -- Dim a As object = BaseMainForm.controls("C1Ribbon1") For Each c As object In a.Tabs c.visible = Not e.ToggleButton.Pressed Next ApplicationMenu.visible = Not e.ToggleButton.Pressed ConfigBar.Visible = Not e.ToggleButton.Pressed |
|
| -- 作者：紫色幽魂 -- 发布时间：2018/10/15 14:50:00 -- 回复：（有点蓝）Dim a As object = BaseMainForm.con... 还是不行的 |
|
| -- 作者：有点甜 -- 发布时间：2018/10/15 15:04:00 -- 我测试没问题，实例发上来测试。 |