vb2022可以創(chuàng)建控件數(shù)組嗎

創(chuàng)建“Windows應用程序”類型的工程，添加名為ButtonArray的類，并使該類繼承 System.Collection.CollectionBase 類。System.Collections.CollectionBase類是.NET框架類庫中為集合操作提供抽象的基類，通過對它的繼承可以為我們的ButtonArray類具備集合增加、刪除、索引的功能。

目前創(chuàng)新互聯(lián)公司已為上千的企業(yè)提供了網(wǎng)站建設、域名、虛擬空間、綿陽服務器托管、企業(yè)網(wǎng)站設計、鎮(zhèn)寧網(wǎng)站維護等服務，公司將堅持客戶導向、應用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長，共同發(fā)展。

2、為ButtonArray類添加ParentForm屬性，即控件組所在窗體，創(chuàng)建初始化函數(shù)（構造函數(shù)）；

3、為控件數(shù)組類增加AddItem方法，該方法在控件數(shù)組類中添加成員；

4、為控件數(shù)組類增加RemoveItem方法，該方法在控件數(shù)組中刪除一個成員。

vb.net2013中創(chuàng)建控件數(shù)組

我是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 '利用循環(huán)語句動態(tài)加入控件數(shù)組。

Dim FirstTextBox As New TextBox

'定義文本框?qū)ο?/p>

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

VB怎么用代碼創(chuàng)建控件數(shù)組？

先定義一個控件(Option1)，然后修改index值為0 ,就創(chuàng)建了控件數(shù)組，設置你要創(chuàng)建控件數(shù)組的其它屬性.\x0d\x0aPrivate Sub Form_Load()\x0d\x0a Dim i%\x0d\x0a For i = 1 To 3\x0d\x0a Load Option1(i) 這句是關鍵,,,,,\x0d\x0a Option1(i).Top = Option1(0).Top\x0d\x0a Option1(i).Left = Option1(i - 1).Left + Option1(i - 1).Width + 200\x0d\x0a Option1(i).Visible = True\x0d\x0a Next\x0d\x0a Option1(0).Caption = "10"\x0d\x0a Option1(1).Caption = "15"\x0d\x0a Option1(2).Caption = "20"\x0d\x0a Option1(3).Caption = "30"\x0d\x0a End Sub\x0d\x0a\x0d\x0aPrivate Sub Option1_Click(Index As Integer)\x0d\x0a Text1.FontSize = Val(Option1(Index).Caption)\x0d\x0aEnd Sub

vb.net 怎樣創(chuàng)建控件數(shù)組？

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 '實例化

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