vb.net创建控件数组 vbnet自定义控件加属性教程

从VB6.0转为VB.net发现以前那套创建控件数组的方法不灵了，还以为VB.net不能创建控件数组，其实不是这样的，VB.net创建控件数组，只是方法变了，VB6.0转来的朋友习惯就好。

其实当我们把控件拖到窗体上，系统就自动为这些控件创建一个集合了，大家就很容易用循环语句，对这些控件统一操作。

比如，我从工具箱里拖3个控件到窗体：1个按钮，1个多选框，1个标签。当拖完后，系统就自动把窗体（父控件）下的控件组成一个集合，下面我们就循环代码让它们显示出现。

   Private Sub Form1_MouseClick(sender As Object, e As MouseEventArgs) Handles Me.MouseClick

       For index = 0 To Me.Controls.Count - 1
           Me.Controls.Item(index).Text = "集合中的第" & (index + 1).ToString & "个元素"
           Me.Controls.Item(index).BackColor = Color.Red
       Next

   End Sub

在visual studio 2022环境，按F5运行，出现界面，点击窗体空白处，出现下面结果：

我们再在窗体创建一个GroupBox控件： GroupBox做为一个容器控件，对于它里面的控件就是父控件，在GroupBox控件里，我们再创建3个控件：1个按钮，1个多选框，1个标签。

把代码稍改一下，如下：

   Private Sub Form1_MouseClick(sender As Object, e As MouseEventArgs) Handles Me.MouseClick

       For index = 0 To Me.Controls.Count - 1
           Me.Controls.Item(index).Text = "集合中的第" & (index + 1).ToString & "个元素"
           Me.Controls.Item(index).BackColor = Color.Red
       Next

       For index = 0 To GroupBox1.Controls.Count - 1
           GroupBox1.Controls.Item(index).Text = "容器中的第" & (index + 1).ToString & "个元素"
           GroupBox1.Controls.Item(index).BackColor = Color.Yellow
       Next
       
  End Sub

运行结果如下：

根据上面的2次运行结果，我们知道容器内的控件自动成一个集合（最后创建的控件反而是第一个元素），我们很容易用循环语句对这个控件统一操作，也比较方便，但是我们只是想把其中的几个控件组成一个控件数组，怎么办呢？

方法就是：定义一个数组列表，然后把相应的控件加入其中就行了，以后操作这个控件，就是操作这个数组列表中的元素。

我先定义一个数组列表，取名：ABC 代码：Dim ABC As New ArrayList

ArrayList的相关知识可去微软了解相关知识，代码中的add, IndexOf等都是ArrayList的方法，Count是它的属性。

告诉新手：在visual studio 环境中，在代码里，鼠标点中ArrayList，让光标移动ArrayList中间，再按F1键，就可以到过 ArrayList 帮助的相关网址。

全部代码如下：

Public Class Form1
    Dim ABC As New ArrayList '定义一个数组列表

    Private Sub Form1_MouseClick(sender As Object, e As MouseEventArgs) Handles Me.MouseClick

        ABC.Add(Button1) 'Button1控件加入数组
        ABC.Add(Button2) 'Button2控件加入数组
        ABC.Add(CheckBox1) 'CheckBox1控件加入数组

        Button1.Tag = "按钮1"
        Button2.Tag = “按钮2” '
        CheckBox1.Tag = ”复选框1“

        For index = 0 To ABC.Count - 1
            ABC(index).BackColor = Color.Green
        Next

        AddHandler Button1.Click, AddressOf ABC_Click '绑定事件处理程序
        AddHandler Button2.Click, AddressOf ABC_Click '绑定事件处理程序
        AddHandler CheckBox1.Click, AddressOf ABC_Click '绑定事件处理程序

    End Sub

    Public Sub ABC_Click(ByVal sender As Object, ByVal e As System.EventArgs)

        ''这里编写控件数组对 点击事件 的响应代码

        Dim i As UInteger = ABC.IndexOf(CType(sender, Control)) '控件在集合中的索引号
        MsgBox("点击的控件的索引是：" & i.ToString)
        MsgBox("此控件的Text属性值：" & ABC(i).Text)
        MsgBox("此控件的Tag属性值：" & ABC(i).Tag)
        MsgBox("此控件的Width属性值：" & ABC(i).Width)
        MsgBox("此控件数组个数：" & ABC.Count)

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MsgBox("按钮1点击事件", , "关于")
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        MsgBox("按钮2点击事件", , "关于")
    End Sub

    Private Sub CheckBox1_Click(sender As Object, e As EventArgs) Handles CheckBox1.Click
        MsgBox("多选框1点击事件", , "关于")
    End Sub
End Class

按F5运行，点击窗体，结果如下：

可见，代码成功地把3个控件加入到数组，并且为控件数组里的控件绑定了共同拥有的鼠标点击事件ABC_Click。

相比较VB6.0，这种方法，即可以让相同类型的控件加入到一个数组里来，也可以让不同类型的控件加入到一个数组，习惯后，这种让控件加入数组也是非常方便。

当然，还可以动态创建控件，并把它们加入到数组来，这就另做一篇文章来说明吧，这里不再赘述。