使用enums更容易地使用控件数组成分

ZDNet软件频道 时间:2003-10-17 作者:ZDNet China |  我要评论()
本文关键词:vbtips
使用enum有两大优点,一是代码可读性更强,二是你可以充分使用属性程序来辨析哪些文本框可以使用。
本文译自Builder.com,未经许可请勿转载许多Visual Basic 6程序都使用控件数组来减少资源的消耗,尤其是在窗体中操作大量数据的时候。然而,跟踪与一个特定的控件的数组索引一般都比较困难,所以,你可以使用enums和它的属性来使这一过程简单化。

例如,建立一个新的窗体。然后在窗体中加入一个文本框控件,其名称为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有两大优点,一是代码可读性更强,二是你可以充分使用属性程序来辨析哪些文本框可以使用。



责任编辑:炒饭

欢迎评论投稿


百度大联盟认证黄金会员Copyright© 1997- CNET Networks 版权所有。 ZDNet 是CNET Networks公司注册服务商标。
中华人民共和国电信与信息服务业务经营许可证编号:京ICP证010391号 京ICP备09041801号-159
京公网安备:1101082134