以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教for each用法  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=6445)

--  作者:唐尸三摆手
--  发布时间:2010/4/3 14:39:00
--  请教for each用法

新建窗口1,任意增加多个控件,希望增加一个按钮,事件为:将所有窗口控件全部visible置为false,请教如何设置代码,用for each....next试了半天,也许是词汇不精,不知如何写代码,高人指教一二!


--  作者:czy
--  发布时间:2010/4/3 14:51:00
--  
For Each c As Winform.Control In e.Form.Controls
    c.Visible = False
Next
e.Sender.Visible = True

--  作者:唐尸三摆手
--  发布时间:2010/4/3 16:56:00
--  
e.Sender.Visible = True 这段代码是什么意思
--  作者:贺老六
--  发布时间:2010/4/3 16:58:00
--  
e.sender返回触发事件的控件。
窗口的任何一个控件的事件,都会有这个e参数的。
编写事件代码,一定要搞清楚这个事件的e参数。

--  作者:程兴刚
--  发布时间:2010/4/3 18:35:00
--  
把这些控件放入一个面板中,单独隐藏这个面板,通过一个专用按钮来切换,只需要对这一个面板来操作:

e.Form.Controls("Panel1").Visible = not e.Form.Controls("Panel1").Visible
--  作者:程兴刚
--  发布时间:2010/4/3 18:44:00
--  
以下是引用程兴刚在2010-4-3 18:35:00的发言:
把这些控件放入一个面板中,单独隐藏这个面板,通过一个专用按钮来切换,只需要对这一个面板来操作:

e.Form.Controls("Panel1").Visible = not e.Form.Controls("Panel1").Visible


经过测试,几乎所有的切换方法都可以通过not来完成,无需复杂的代码!