以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  按钮控制窗口问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119581)
--  作者：jinhetian
--  发布时间：2018/5/28 9:03:00
--  按钮控制窗口问题
您好老师。
如何用一个按钮控制开和关同一个窗口？
--  作者：有点甜
--  发布时间：2018/5/28 10:11:00
--  

Dim frm = forms("窗口1")

If frm.Opened Then

    frm.Close

    e.sender.Text = "打开"

Else

    frm.Show

    e.sender.Text = "关闭"

End If
--  作者：jinhetian
--  发布时间：2018/5/28 10:40:00
--  
有点甜老师，问题解决了。再次跟您说声“谢谢！！”