VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 快速更改组控件属性
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:8268, 日期:2001-06-23
快速更改组控件属性
作者:土人
当窗体上有一大堆相同的控件需要同时设置为相同的属性时,你是不是一个一个地处理?如是,这有多麻烦!看一看以下例子或许你会得到启发。本例假定窗体上有若干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