快速访问栏做了个按钮,显示和隐藏菜单栏,这个只有在第一次进入软件的时候有用,后面再软件界面点击或者操作过再点击这个按钮,菜单栏是隐藏了,但是在原来的菜单栏位置显示的就是一个空白的界面,这个界面就不再缩回去隐藏掉,是怎么回事
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