vb.net控件指定数组 数组控件vb编程代码

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

Dim Str(20) As String '20数据元素

创新互联公司专业为企业提供宁安网站建设、宁安做网站、宁安网站设计、宁安网站制作等企业网站建设、网页设计与制作、宁安企业网站模板建站服务，10年宁安做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。

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 数组的定义方法

1、vb.net的

数组定义与变量定义差不多。可以用

dim

来定义

比如:

dim

a（100）

as

integer。

也可以不定义下标

在程序中

用

redim

来定义。

如：

dim

a()

as

integer

'

'

redim

a(100)

2、vb.net中定义数组可以直接赋值。

如：

dim

a()

as

integer

={1,

2,

3,4}

vb.net中定义控件数组，控件数组中加入多个按钮。怎么能在控件数组事件响应对应按钮的事件，代码部分：

Dim bt As New ArrayList

bt.Add(Me.Button5)

bt.Add(Me.Button6)

bt.Add(Me.Button7)

上面这段代码本人表示不懂，故没有使用。下面的代码在VS2015中运行通过：

Private Sub btClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click, Button6.Click, Button7.Click

Select Case CType(sender, Button).Name

Case "Button5"

MessageBox.Show("你点击了 Button5 按钮")

Case "Button6"

MessageBox.Show("你点击了 Button6 按钮")

Case "Button7"

MessageBox.Show("你点击了 Button7 按钮")

End Select

End Sub

vb.net2013中创建控件数组

我是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

网页题目：vb.net控件指定数组 数组控件vb编程代码
浏览地址：https://www.cdcxhl.com/article38/dojocsp.html

成都网站建设公司_创新互联，为您提供静态网站、品牌网站设计、ChatGPT、网站改版、网站制作、面包屑导航

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联