版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
在vb6的时候，很方便在设计的时候创建控件数组。
例如两个按钮控件（CommandButton），当修改其中一个控件名称与另外一个控件名称一样时，vb6编辑器会提示：
按下“是”就会创建控件数组了，两个按钮区别在于Index属性不同：
在实际代码中可以看到，事件参数中多了 Index as Integer，也就是通过Index指明了是哪个具体的按钮：
那么在vb.net中，如果输入了相同的名称：
也就是通过设计时候创建控件数组是行不通的。那么在代码中如何实现？
Public Class Form3
Dim mybutton() As Button
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ReDim mybutton(3)
For i As Integer = 0 To 3
mybutton(i) = New Button
mybutton(i).Size = New Size(100, 40)
mybutton(i).Location = New Point(10 + i * 120, 100)
mybutton(i).Text = "按钮" & i
Me.Controls.Add(mybutton(i))
AddHandler mybutton(i).Click, AddressOf buttonclick
Next
End Sub
Private Sub buttonclick(sender As Object, e As EventArgs)
Dim clickButton As Button = CType(sender, Button)
MessageBox.Show("我按下了 " & clickButton.Text)
End Sub
End Class
基本步骤如下：
1、创建一个窗体级控件数组
2、窗体载入时，实例化各个控件
3、设置各个控件的属性，不是每个属性都必要。
4、窗体上增加控件
5、添加控件事件
6、创建相应的事件
运行如图：
要区分具体哪个按钮，可以采用一个偷懒的方法，把按钮的index写入 tag 属性：
Public Class Form3
Dim mybutton() As Button
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ReDim mybutton(3)
For i As Integer = 0 To 3
mybutton(i) = New Button
mybutton(i).Size = New Size(100, 40)
mybutton(i).Location = New Point(10 + i * 120, 100)
mybutton(i).Text = "按钮" & i
mybutton(i).Tag = i
Me.Controls.Add(mybutton(i))
AddHandler mybutton(i).Click, AddressOf buttonclick
Next
End Sub
Private Sub buttonclick(sender As Object, e As EventArgs)
Dim clickButton As Button = CType(sender, Button)
MessageBox.Show("我按下了第 " & clickButton.Tag & " 个按钮!")
End Sub
End Class
运行时如下：
由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。
学习更多vb.net知识，请参看vb.net教程 目录
————————————————
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
