以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  按钮控制控件的显示和隐藏  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130421)

--  作者:cyrollin
--  发布时间:2019/1/21 16:39:00
--  按钮控制控件的显示和隐藏
Dim pn As e.form.controls("panel1")
If pn.visiable Then
    pn.Invisiable
Else    
    pn.visiable
End If


点一下这个按钮,显示控件panel1,再点一下,隐藏panel1. 
语法错误。。。。。。。

--  作者:cyrollin
--  发布时间:2019/1/21 16:43:00
--  
未找到类型“Panel”的公共成员“visiable”。
--  作者:cyrollin
--  发布时间:2019/1/21 17:01:00
--  
已经解决, 谢谢 viewing....

另外想实现窗口大小显示的问题

设计了一个按钮, 点一下扩大
forms("窗口1").BaseForm.width = 1000
forms("窗口1").BaseForm.height = 1000

再点一下缩小到初始大小:
forms("窗口1").BaseForm.width = 500
forms("窗口1").BaseForm.height = 500

怎么实现呢?

--  作者:有点蓝
--  发布时间:2019/1/21 17:33:00
--  
独立、模式窗口这个用法没有问题

其他类型窗口,设置forms("窗口1").panel.parent.parent.width

--  作者:cyrollin
--  发布时间:2019/1/21 17:50:00
--  
不懂。。。。。。
--  作者:cyrollin
--  发布时间:2019/1/21 18:07:00
--  
好了,问题解决了,谢谢。