通用控件属性设置函数

[东方之珠]

通用控件属性设置函数：
以下是部分内容。全文请参见：http://blog.csdn.net/chenjl1031/archive/2008/09/29/2994085.aspx

'通用控件属性设置函数
'参数说明：Frm,控件所在窗体；CtrlName,Frm窗体上的控件名字；LMin,Lmax分别是控件的最小、最大编号；cPropertyName,表示要设置的属性名称；bProperty，表示要设置的控件属性。
Public Function SetControlProperty(Frm As Form, ByVal CtrlName As String, ByVal LMin As Long, ByVal Lmax As Long, ByVal cPropertyName As String, ByVal bProperty As Variant)
       Dim comCtrl As Control '通用控件
       Dim comCtrlName As String '通用控件名字
       For Each comCtrl In Frm '枚举窗体Frm上的控件
           If InStr(comCtrl.Name, CtrlName) > 0 Then '是否指定控件名
              comCtrlName = comCtrl.Name '获取控件名称
              Mid(comCtrlName, 1, Len(CtrlName)) = Space(Len(CtrlName)) '获取控件编号
              If (Val(comCtrlName) >= LMin And Val(comCtrlName) <= Lmax) Then '指定范围内的控件
                 CallByName comCtrl, cPropertyName, VbLet, bProperty '设置属性
              End If
           End If
       Next
End Function

调用方法:

例如：要将下面自身窗体中20个Image控件设置为不可见，只须写上一行：

Call SetControlProperty(Me, "Image", 1, 20, "Visible", False)

非常方便；当属性改变时，即这20个Image控件要全部可见，只须写上一行：

Call SetControlProperty(Me, "Image", 1, 10, "Visible", True)

Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
.......................
Image20.Visible = False

再如：要将窗体Form1中下面10个图片框的背景色全部设置成&H8000000F，只须：

Call SetControlProperty(Form1, "Picture", 1, 10, "BackColor",&H8000000F)

Picture1.BackColor = &H8000000F
Picture2.BackColor = &H8000000F
Picture3.BackColor = &H8000000F
...............................
Picture10.BackColor = &H8000000F

[SYSSZ]

精彩

[apu510064]

顶

[lsftest]

吾。。。考虑一下加上嵌套。

[现在还是人类]

DB

[jhone99]

收藏

[xredhat]

要将下面自身窗体中20个Image控件设置为不可见，这样不就行了：

for i= 0 to 19
Image(i).Visible=False
Next

全都设置同一属性干嘛还写个函数？

[东方之珠]

[Quote=引用 5 楼 xredhat 的回复:]
要将下面自身窗体中20个Image控件设置为不可见，这样不就行了：

for i= 0 to 19
Image(i).Visible=False
Next

全都设置同一属性干嘛还写个函数？
[/Quote]

是。你说得没错，非常正确！
但，其它属性呢？比如：Image1.left,Image1.height,Picture1.backcolor。
也就是说，如果程序中有大量不同类别的控件的大量属性设置，那优势就不说了吧。

[fvflove]

我来说二句.

1.对于代码简洁来说...使用LZ的方法非常的不错.

2.对于(套用一句,算法的时间性)来说. LZ的方法就差了一点.

[东方之珠]

[Quote=引用 7 楼 fvflove 的回复:]
我来说二句.

1.对于代码简洁来说...使用LZ的方法非常的不错.

2.对于(套用一句,算法的时间性)来说. LZ的方法就差了一点.
[/Quote]

是的，调用涵数要付代价。只是一种方法而已；用控件数组写成循环也是一种方法。各有所爱吧。

[yanlongwuhui]

支持楼上

[zdingyun]

收藏，JF

[现在还是人类]

其实很多东西没必要太去讲究现在的实用性，毕竟方法有在那，
当需要的时候有得用这才是关键。

[嗷嗷叫的老马]

顶顶.

在界面中有大量的控件,而又要批量设置属性时会让代码很简洁,代码容易看.

由于这个过程应该不会非常频繁地调用,因此就算没有什么效率的话也没有关系.

对于5楼的代码,只适合于已经成组的数组控件,非成组的控件还是得用CallByName或Controls集合.

[东方之珠]

[Quote=引用 12 楼 myjian 的回复:]
顶顶.

在界面中有大量的控件,而又要批量设置属性时会让代码很简洁,代码容易看.

由于这个过程应该不会非常频繁地调用,因此就算没有什么效率的话也没有关系.

对于5楼的代码,只适合于已经成组的数组控件,非成组的控件还是得用CallByName或Controls集合.
[/Quote]

是的。如果频繁调用过程，那效率又太低了。

[东方之珠]

在速度优先的情况下，适当的考虑代码效率，这是有好处的。这是个辩证关系，每个人把握的程序不一样罢了。