快速更改组控件属性

领测软件测试网

　　 
　　当窗体上有一大堆相同的控件需要同时设置为相同的属性时，你是不是一个一个地处理？如是，这有多麻烦！看一看以下例子或许你会得到启发。本例假定窗体上有若干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

文章来源于领测软件测试网 https://www.ltesting.net/