例如,建立一个新的窗体。然后在窗体中加入一个文本框控件,其名称为txtArray。将文本框的索引属性设置为0。然后建立三个以上的文本框,每一个都命名为txtArray,并将它们的索引属性设置为1,2,和3。
访问控件数组的其中一种方法是使用索引号,如下如示:
txtArray(0).Text = "Mr."
txtArray(1).Text = "John"
txtArray(2).Text = "Doe"
txtArray(3).Text = "Jr."
这一方法使你记住索引号0代表的是开始,索引号1代表的是第一个名称,其它类推。为了更能说明这一点,建立一个带有索引号的值的enum。
Private EnumTextBoxIndex
txtSalutation = 0
txtFirstName = 1
txtLastName = 2
txtSuffix = 3
End Enum
接着,建立一个属性程序:
Private Property Get TextBoxItem(ByVal Index As TextBoxIndex)
_
As TextBox
Set TextBoxItem = txtArray(Index)
End Property
现在,当你访问文本框时,可以使用下面的属性程序:
TextBoxItem(txtSalutation).Text = "Mr."
TextBoxItem(txtFirstName).Text = "John"
TextBoxItem(txtLastName).Text = "Doe"
TextBoxItem(txtSuffix).Text = "Jr."
使用enum有两大优点,一是代码可读性更强,二是你可以充分使用属性程序来辨析哪些文本框可以使用。