Dim but As Button
Dim butArray(10) As Button
Dim i As Integer
For i = 0 To 9
butArray(i) = New Button
butArray(i).Name = i.ToString()
butArray(i).Top = i * 10
butArray(i).Visible = True
Me.Controls.Add(butArray(i))
Next
类似过去的控件数组,可以的
Dim but As Button
Dim butArray(10) As Button
Dim i As Integer
For i = 0 To 9
butArray(i) = New Button
butArray(i).Name = i.ToString()
butArray(i).Top = i * 10
butArray(i).Visible = True
Me.Controls.Add(butArray(i))
Next
Dim a As New Button()
a.Name = "b1"
Dim a1 As New Button()
a1.Name = "b2"
Dim b() As Button = {a, a1}
Dim i As Integer
For i = 0 To b.GetUpperBound(0)
MessageBox.Show(CType(b(i), Button).Visible.ToString)
Next
Dim a As New Button()
a.Name = "b1"
Dim a1 As New Button()
a1.Name = "b2"
Dim b() As Button = {a, a1}
Dim i As Integer
For i = 0 To b.GetUpperBound(0)
MessageBox.Show(b(i).Name())
Next
是可以的啊,不知道你想使用数组的什么属性???