以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  打开和关闭窗口  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=126261)
--  作者：cyrollin
--  发布时间：2018/10/17 16:48:00
--  打开和关闭窗口
设计了一个按钮， 点一下打开窗口， 再点一下关闭这个窗口。

If Forms("窗口1").visible = False 
Forms("窗口1").open
Else If Forms("窗口1").visible = True Then
Forms("窗口1").close（）
End If

我没实现

[此贴子已经被作者于2018/10/17 16:59:11编辑过]
--  作者：有点甜
--  发布时间：2018/10/17 17:13:00
--  

隐藏参考

 

Dim frm As WinForm.Form = Forms("窗口1")
If frm.Opened Then
    frm.Visible = not frm.Visible
Else   
    frm.Show
End If
--  作者：有点甜
--  发布时间：2018/10/17 17:14:00
--  

关闭参考

 

Dim frm As WinForm.Form = Forms("窗口1")
If frm.Opened Then
    frm.close
Else   
    frm.Show
End If