Dim Str(20) As String '20數據元素

專注于為中小企業提供成都網站制作、做網站服務,電腦端+手機端+微信端的三站合一,更高效的管理,為中小企業巨鹿免費做網站提供優質的服務。我們立足成都,凝聚了一批互聯網行業人才,有力地推動了千余家企業的穩健成長,幫助中小企業通過網站建設實現規模擴充和轉變。
Dim Text(20) As TextBox
Dim n As Integer = 0
For Each i In Text
i = New TextBox '實例化
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數組值賦值給文本框
n += 1
Next
我是VB.Net 2010,你看看能行不。
Public Class Form1
Private MyTextBoxArray As New ArrayList
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
For i = 0 To 8 '利用循環語句動態加入控件數組。
Dim FirstTextBox As New TextBox
'定義文本框對象
Me.Controls.Add(FirstTextBox)
'將一個文本框控件加入到Form上
MyTextBoxArray.Add(FirstTextBox)
'將文本框控件加入到例表集合中
MyTextBoxArray.Item(i).top = i * MyTextBoxArray.Item(i).height + 20 '修改新加入控件在Form上的位置
MyTextBoxArray.Item(i).left = 100
FirstTextBox.TabIndex = i
'修改新加入控件的TabIndex值
MyTextBoxArray.Item(i).text = "TextBox" i.ToString '修改默認文本。
Next
End Sub
End Class
可以不同。
開發人員在 Visual Basic 6.0 以及更早的版本中使用控件數組主要有以下三個理由:
1. 在循環中訪問數組中控件的屬性。
2. 向窗體動態添加新控件。
3. 允許一個事件例程與多個控件連接 。
控件數組的使用,極大的方便了開發人員。然而,剛剛從Visual Basic6.0(以下簡稱VB6.0)過渡到Visual Basic.Net(以下簡稱VB.NET)的初學者卻發現,在VB.NET中似乎不能使用控件數組了。筆者仔細查閱了VB.NET的MSDN文檔發現,在 VB.NET 中,確實不再支持控件數組。原因是,VB.NET對事件模型作了很大的改動,引入了另外一種數據類型――控件集合模型,使控件數組沒有存在的必要。就像 VB6.0 中的控件數組可以共享事件一樣,VB.NET 中的事件模型允許任何事件處理程序都可以處理來自多個控件的事件,這就允許創建屬于不同類型但共享相同事件的控件組。
VB.net中沒有控件數組的說法。
替代方法:
·創建一個控件的類型數組: Button[],將所有的button控件創建好后存進去,可以遍歷它;
·或將所有要遍歷的控件放在一個容器如Panel中,以后遍歷這個容器的子控件即可。
----------
你的情況,推薦放在容器中。比如下面就是一個遍歷容器的控件,然后找出所有的文本框并修改內容的程序:
//pn 是個 Panel 控件
foreach (Control item in pn.Controls)
{
if (typeof(TextBox) == item.GetType())
{
((TextBox)item).Text = "我是動態修改的!";
}
}
本文標題:vb.net設置控件數組 vb 控件組
本文網址:http://www.js-pz168.com/article28/doipocp.html
成都網站建設公司_創新互聯,為您提供關鍵詞優化、網站改版、、網站維護、App開發、搜索引擎優化
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯