以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何展开上方窗口自动闭合右侧窗口？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81126)
--  作者：time
--  发布时间：2016/2/19 9:01:00
--  如何展开上方窗口自动闭合右侧窗口？

同一个表的两个窗口，如何按自动隐藏Auto Hide 图钉展开一个隐藏的窗口同时自动隐藏另外一个窗口；按自动隐藏Auto Hide 图钉展开另外一个窗口同时关闭这个窗口；不论从哪个窗口隐藏或展开，另外一个窗口自动转换隐藏或展开，总之只展现一个窗口。请教如何实现相互切换？
--  作者：大红袍
--  发布时间：2016/2/19 9:34:00
--  

 只能变通处理，你去编写sizeChanged事件，判断

 

If e.form.width = 0 Then
    Dim obj = Forms("窗口2").panel.parent.parent
    obj.AutoHiding = False

else

    Dim obj = Forms("窗口2").panel.parent.parent
    obj.AutoHiding = true
End If