锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net建控件数组 vb中命令按钮数组怎么创建

IT技术创建

vb中控件数组的类型可以不同可以不同 。
开发人员在 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 控件数组你这是控件数组vb.net建控件数组？你这明明就是9个不同的 TextBox 控件啊vb.net建控件数组，只不过名字长得像而已 。
vb.net如何使用控件数组 ， 希望可以用label为例vb.net和vb6.0不同vb.net建控件数组，无法直接使用控件数组 。不过可以通过其vb.net建控件数组他方式变通一下 。
比如现在有10个labelvb.net建控件数组，要将这10个label的text属性统一设置为“这是第X个标签”（X为1-10） 。
1.建立10个labelvb.net建控件数组，名称分别为label1、label2、label3 。。label10
2.代码：
For i = 1 To 10
Me.FindControl("label"i).Text = "这是第"i“个标签”
Next i
关键点是Me.FindControl()的方法，在代码中Me.FindControl("label1").text与label1.text是一样的 。
vb.net2013中创建控件数组我是VB.Net 2010 ， vb.net建控件数组你看看能行不 。
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上vb.net建控件数组的位置
MyTextBoxArray.Item(i).left = 100
FirstTextBox.TabIndex = i
'修改新加入控件的TabIndex值
MyTextBoxArray.Item(i).text = "TextBox"i.ToString '修改默认文本 。
Next
End Sub
End Class
vb2022可以创建控件数组吗创建“Windows应用程序”类型vb.net建控件数组的工程，添加名为ButtonArray的类，并使该类继承 System.Collection.CollectionBase 类 。System.Collections.CollectionBase类是.NET框架类库中为集合操作提供抽象的基类，通过对它的继承可以为vb.net建控件数组我们的ButtonArray类具备集合增加、删除、索引的功能 。
2、为ButtonArray类添加ParentForm属性，即控件组所在窗体 ， 创建初始化函数（构造函数）vb.net建控件数组；
3、为控件数组类增加AddItem方法 ， 该方法在控件数组类中添加成员vb.net建控件数组；
4、为控件数组类增加RemoveItem方法，该方法在控件数组中删除一个成员 。
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) '添加窗体

推荐阅读


上一篇：安卓浏览器播放netflix的简单介绍

下一篇：word字怎么倒着，word文档字怎么倒着