快速更改组控件属性

当窗体上有一大堆相同的控件需要同时设置为相同的属性时，你是不是一个一个地处理？如是，这有多麻烦！看一看以下例子或许你会得到启发。本例假定窗体上有若干Line控件，点击按钮"HideLines"时所有Line控件隐藏起来，点击"ShowLines"按钮则全部显現。

Option Explicit

Dim HideMe As Boolean ''定义用于隐藏与否的布尔变量

Private Sub HideLine() ''自定义隐藏与否函数
Dim c As Control ''定义控件集合变量
For Each c In Controls ''注意：用复数
If TypeOf c Is Line Then ''若控件类型为Line控件
Select Case HideMe ''按HideMe变量的真假判断
Case True ''为真则
c.Visible = False ''所有Line控件不可见
Case False ''反之则
c.Visible = True ''可见
End Select
End If
Next c ''下一个Line控件
End Sub

''显示所有Line控件
Private Sub cmdShow_Click()
HideMe = False
HideLine
End Sub

''隐藏所有Line控件
Private Sub cmdHide_Click()
HideMe = True
HideLine
End Sub

''初始化程序
Private Sub Form_Load()
cmdShow.Caption = "ShowLines"
cmdHide.Caption = "HideLines"
End Sub

• ·QQ邮箱新体验：容量自动翻倍，发送G级附件[组图]
• ·玩转科技奥运
• ·网络管理员必学手册
• ·从头学做网管系列教程: 如何合理规划局域网
• ·巧用QQ打开被网管隐藏的文件夹

• ·为何网管变成勤杂工
• ·网管严把服务器防火墙上"漏洞"
• ·初级网管的网络安全
• ·网管必读 教会用户自己给系统打补丁
• ·网络管理五大发展方向