可以實(shí)現(xiàn)
成都創(chuàng)新互聯(lián)公司是一家朝氣蓬勃的網(wǎng)站建設(shè)公司。公司專注于為企業(yè)提供信息化建設(shè)解決方案。從事網(wǎng)站開發(fā)，網(wǎng)站制作，網(wǎng)站設(shè)計(jì)，網(wǎng)站模板，微信公眾號(hào)開發(fā)，軟件開發(fā)，微信小程序開發(fā)，十余年建站對(duì)成都白烏魚等多個(gè)方面，擁有豐富的網(wǎng)站維護(hù)經(jīng)驗(yàn)。
首先創(chuàng)建一個(gè)Button類型控件數(shù)組：
1、創(chuàng)建“Windows應(yīng)用程序”類型的工程，添加名為ButtonArray的類，并使該類繼承 System.Collection.CollectionBase 類。System.Collections.CollectionBase類是.NET框架類庫中為集合操作提供抽象的基類，通過對(duì)它的繼承可以為我們的ButtonArray類具備集合增加、刪除、索引的功能。
2、為ButtonArray類添加ParentForm屬性，即控件組所在窗體，創(chuàng)建初始化函數(shù)（構(gòu)造函數(shù)）；
3、為控件數(shù)組類增加AddItem方法，該方法在控件數(shù)組類中添加成員；
4、為控件數(shù)組類增加RemoveItem方法，該方法在控件數(shù)組中刪除一個(gè)成員。
示例代碼：
Public Class ButtonArray
Inherits System.Collections.CollectionBase
Private ReadOnly ParentForm As System.Windows.Forms.Form
Public Sub New(ByVal pForm As System.Windows.Forms.Form)
ParentForm = pForm
End Sub
Default Public ReadOnly Property Item(ByVal index As Integer) As System.Windows.Forms.Button
Get
Return Me.List.Item(index) ' ButtonArray的List 屬性從CollectionBase 繼承
End Get
End Property
Public Sub AddItem()
Dim btnItem As New System.Windows.Forms.Button
Me.List.Add(btnItem)
ParentForm.Controls.Add(btnItem) '向窗體中增加控件
btnItem.Tag = Me.Count 'Count屬性從CollectionBase 繼承
btnItem.Top = Me.Count * 30
btnItem.Left = 200
btnItem.Text = "Button" Me.Count.ToString
AddHandler btnItem.Click, AddressOf btnItem_Click '綁定事件處理程序
End Sub
Public Sub AddItem(ByVal btnItem As System.Windows.Forms.Button)
Me.List.Add(btnItem)
AddHandler btnItem.Click, AddressOf btnItem_Click '綁定事件處理程序
End Sub
Public Sub RemoveItem()
If Me.Count 0 Then
ParentForm.Controls.Remove(Me(Me.Count - 1))
Me.List.RemoveAt(Me.Count - 1)
End If
End Sub
Public Sub btnItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)
'在這里編寫控件數(shù)組對(duì)點(diǎn)擊事件的響應(yīng)
'例如：
MsgBox("點(diǎn)擊：" sender.GetType().ToString CType(CType(sender, Button).Tag, String))
End Sub
End Class
使用創(chuàng)建的控件數(shù)組
在Form1中放置兩個(gè)按鈕Button1、Button2，分別測試控件數(shù)組的增添、刪除。
雙擊Form添加代碼：
Public Class Form1
Inherits System.Windows.Forms.Form
……Windows窗體設(shè)計(jì)器生成的代碼……
Dim Buttons As New ButtonArray(Me)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Buttons.AddItem()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Buttons.RemoveItem()
End Sub
End Class
其他的控件數(shù)組也可以用類似的方式來實(shí)現(xiàn)
例如 Label控件數(shù)組
LabelArray.vb代碼如下：
Public Class LabelArray
Inherits System.Collections.CollectionBase
Private ReadOnly ParentForm As System.Windows.Forms.Form
Public Sub New(ByVal pForm As System.Windows.Forms.Form)
ParentForm = pForm
End Sub
Default Public ReadOnly Property Item(ByVal index As Integer) As System.Windows.Forms.Label
Get
Return Me.List.Item(index) ' ButtonArray的List 屬性從CollectionBase 繼承
End Get
End Property
Public Sub AddItem(ByVal btnItem As System.Windows.Forms.Label)
Me.List.Add(btnItem)
AddHandler btnItem.Click, AddressOf btnItem_Click '綁定事件處理程序
End Sub
Public Sub btnItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)
'在這里編寫控件數(shù)組對(duì)點(diǎn)擊事件的響應(yīng)
'例如：
MsgBox("點(diǎn)擊：" sender.GetType().ToString CType(CType(sender, Label).Tag, String))
End Sub
End Class
使用創(chuàng)建的Label控件
在Form1中放置兩個(gè)按鈕Label1、Label2
雙擊Form添加代碼：
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows 窗體設(shè)計(jì)器生成的代碼 "
Public Sub New()
MyBase.New()
'該調(diào)用是 Windows 窗體設(shè)計(jì)器所必需的。
InitializeComponent()
'在 InitializeComponent() 調(diào)用之后添加任何初始化
'用來綁定label
BindArray()
End Sub
……Windows窗體設(shè)計(jì)器生成的其他代碼……
#End Region
Dim Labels As New LabelArray(Me)
Public Sub BindArray()
Me.Label1.Tag = "1111"
Me.Label2.Tag = "222"
Labels.AddItem(Me.Label1)
Labels.AddItem(Me.Label2)
End Sub
End Class
然后可以測試點(diǎn)擊兩個(gè)label可以顯示相應(yīng)的Tag的信息。
添加一個(gè)OPTION控件，復(fù)制-粘貼，建立 控件組
比如復(fù)制6個(gè)
代碼如下
Private Sub Command1_Click()
For i = 0 To 5
If Option1(i).Value = True Then MsgBox Option1(i).Caption "被選中"
Next
End Sub
Imports?System.Text
Imports?System.Windows
Imports?System.Windows.Forms
Public?Class?Netin?'類?名
'Inherits?Forms.Form
Public?Shared?Netin?As?New?Form
Public?components?As?ComponentModel.IContainer
Protected?Overrides?Sub?Finalize()
MyBase.Finalize()
End?Sub???
DebuggerStepThrough()
Public?Sub?InitializeComponent()
Me.components?=?New?ComponentModel.Container()
Dim?resources?As?ComponentModel.ComponentResourceManager?=?New?System.ComponentModel.ComponentResourceManager(GetType(bjt))
Me.TextBox1?=?New?TextBox(Me.components)
Me.Button1?=?New?Button(Me.components)
'For?…?Next??
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Button1)
Me.m?=?New?ContextMenuStrip(Me.components)
Me.m1.Text?=?"菜單項(xiàng)1"?????
'設(shè)置并添加相關(guān)控件，(窗體)Netin?初始化。
End?Sub
Private?Sub?Form_Load(sender?As?Object,?e?As?EventArgs)?Handles?Me.Load
'加載后顯示窗體Netin。
End?Sub
Public?Sub?ObjClick(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click,Button2.Click,Button3.Click,TextBox1.Click?
MessageBox.Show("你按了鼠標(biāo)")
End?Sub
Public?WithEvents?TextBox1?As?TextBox
Public?WithEvents?Button1?As?Button
Public?WithEvents?Button2?As?Button
Public?WithEvents?Button3?As?Button
Friend?WithEvents?m?As?ContextMenuStrip
Friend?WithEvents?m1?As?ToolStripMenuItem
End?Class
Class?MainWindow
Netin.Show()
Netin.Button2.Text?=?"Main"
……
VB.net中沒有控件數(shù)組的說法。
替代方法：
·創(chuàng)建一個(gè)控件的類型數(shù)組： Button[]，將所有的button控件創(chuàng)建好后存進(jìn)去，可以遍歷它；
·或?qū)⑺幸闅v的控件放在一個(gè)容器如Panel中，以后遍歷這個(gè)容器的子控件即可。
----------
你的情況，推薦放在容器中。比如下面就是一個(gè)遍歷容器的控件，然后找出所有的文本框并修改內(nèi)容的程序：
//pn 是個(gè) Panel 控件
foreach (Control item in pn.Controls)
{
if (typeof(TextBox) == item.GetType())
{
((TextBox)item).Text = "我是動(dòng)態(tài)修改的！";
}
}
Dim Str(20) As String '20數(shù)據(jù)元素
Dim Text(20) As TextBox
Dim n As Integer = 0
For Each i In Text
i = New TextBox '實(shí)例化
i.Location = New Point(50, n * 20)
Me.Controls.Add(i) '添加窗體
Dim Index As Integer = i.TabIndex '沒index屬性
Str(n) = Index
i.Text = Str(n) 'str數(shù)組值賦值給文本框
n += 1
Next
重慶分公司
重慶分公司
