- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求共用窗口的隐藏和显示代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68413)
-- 发布时间：2015/5/17 8:55:00
-- 求共用窗口的隐藏和显示代码
在配置栏增加一个状态按钮，用来控制导航窗口（共用窗口）的隐藏和显示，请教如何写代码。
-- 发布时间：2015/5/17 9:32:00
--
哪位老师给看看啊
-- 发布时间：2015/5/17 9:41:00
--
这也算问题吗?
If Forms("共有窗口").Opened Then
Forms("共有窗口").close
Else
Forms("共有窗口").open
End If
-- 发布时间：2015/5/17 9:43:00
--
我要的不是这样的，窗口本来就是打开的，只是要控制隐藏和显示
-- 发布时间：2015/5/17 9:48:00
--
初始状态，导航窗口是打开的
按下按钮后，导航窗口隐藏
此主题相关图片如下：2.jpg
再按下按钮后，导航窗口再显示
此主题相关图片如下：1.jpg
此主题相关图片如下：1.jpg-- 发布时间：2015/5/17 10:03:00
--
1 把共有窗口设置为自动隐藏
2 代码
Forms("共有窗口").show
-- 发布时间：2015/5/17 10:37:00
--
谢谢老师，但还是达不到要求，我的目的是通过配置栏的的个按钮，控制导航窗口在图一和图二两个状态转换
-- 发布时间：2015/5/17 10:37:00
--
设置自动隐藏，想显示的时候，可以取消自动隐藏。
Dim o As object = Forms("窗口1").panel.parent.parent
o.AutoHiding = True
\'o.AutoHiding = False
-- 发布时间：2015/5/17 10:50:00
--
谢谢大红袍老师，目的达到了
-- 发布时间：2015/5/17 12:44:00
--
谢谢大红袍老师：还有个问题请教
我在菜单配置栏的按钮[导航]加了如下代码：
\'此段代码用于隐藏或显示导航窗口
Static dh As RibbonMenu.ToggleButton
If dh Is Nothing Then
dh = ConfigBar.Items("导航")
End If
Dim o As object = Forms("导航").panel.parent.parent
If dh.Pressed = False Then
o.AutoHiding = True
Else
o.AutoHiding = False
End If
在主菜单事件SystemIdle 加了如下代码：
\'以下代码用于更新配置栏"导航"按钮的状态,如果按钮已经改名或者移到别的功能区,请对应地修改此段代码
\'如果删除此按钮,也应该删除此段代码
Static dh As RibbonMenu.ToggleButton
If dh Is Nothing Then
dh = Ctype(ConfigBar.Items("导航"),RibbonMenu.ToggleButton)
End If
Dim o As object = Forms("导航").panel.parent.parent
If o.AutoHiding = True
dh.Pressed = False
Else
dh.Pressed = True
End If
现在出现的问题是：
当按下导航按钮时，导航窗口能显示出来，再按下导航按钮时，导航窗口能隐藏。但当导航窗口在隐藏状态时，如果按下窗口最左边的导航窗口隐藏条时，出现如图所示的错误提示，请老师看看是什么原因？