- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]代码怎样设置主窗口的自动隐藏与固定 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119333)
-- 发布时间：2018/5/23 8:20:00
-- [求助]代码怎样设置主窗口的自动隐藏与固定
主窗口的属性有个“自动隐藏”的属性，就是打开主窗口后的那个小“图钉”按钮，横着时自动隐藏，竖着时固定。
怎样用代码设置主窗口隐藏或固定？
谢谢！
-- 发布时间：2018/5/23 8:58:00
--
隐藏代码
Dim frm = forms("窗口1").panel.parent.parent
frm.AutoHiding = True
显示代码
Dim frm = forms("窗口1").panel.parent.parent
frm.AutoHiding = False
[此贴子已经被作者于2018/5/23 8:59:41编辑过]
-- 发布时间：2018/5/23 9:15:00
--
此主题相关图片如下：image aa.jpg
-- 发布时间：2018/5/23 10:12:00
--
分开写，写成2行。
-- 发布时间：2018/5/23 12:07:00
--
如果连续运行“隐藏”代码，弹出:
此主题相关图片如下：image 2.jpg
加上判断也不行：
Dim frm = forms("导航窗口").panel.parent.parent
If frm.AutoHiding = True Then
Return
Else
frm.AutoHiding = True
End If
-- 发布时间：2018/5/23 12:11:00
--
方法一
Dim frm = forms("导航窗口").panel.parent.parent
try
frm.AutoHiding = True
catch ex As exception
End try
方法二
Dim frm = forms("导航窗口").panel.parent.parent
If frm.Gettype.name = "bv" Then
CurrentTable.Focus
Else
frm.AutoHiding = True
End If