vb.net的控件数组 vb控件数组的使用

vb.net 怎样创建控件数组？

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

你这是控件数组？你这明明就是9个不同的 TextBox 控件啊，只不过名字长得像而已。

我是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 '修改默认文本。

End Sub

End Class

名称栏目：vb.net的控件数组 vb控件数组的使用
本文路径：http://myzitong.com/article/dooehhe.html