vb.net创建数组控件 vb自定义类型数组的应用

VB中控件数组在VB.NET中用法,请给一个例子

VB.net中没有控件数组的说法。

10年积累的成都网站设计、网站建设经验,可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你,你也不认识我。但先网站制作后付款的网站建设流程,更有京山免费网站建设让你可以放心的选择与我们合作。

替代方法:

·创建一个控件的类型数组: Button[],将所有的button控件创建好后存进去,可以遍历它;

·或将所有要遍历的控件放在一个容器如Panel中,以后遍历这个容器的子控件即可。

----------

你的情况,推荐放在容器中。比如下面就是一个遍历容器的控件,然后找出所有的文本框并修改内容的程序:

//pn 是个 Panel 控件

foreach (Control item in pn.Controls)

{

if (typeof(TextBox) == item.GetType())

{

((TextBox)item).Text = "我是动态修改的!";

}

}

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怎么用代码创建控件数组?

先定义一个控件(Option1),然后修改index值为0 ,就创建了控件数组,设置你要创建控件数组的其它属性.

Private Sub Form_Load()

Dim i%

For i = 1 To 3

Load Option1(i) ' 这句是关键,,,,,

Option1(i).Top = Option1(0).Top

Option1(i).Left = Option1(i - 1).Left + Option1(i - 1).Width + 200

Option1(i).Visible = True

Next

Option1(0).Caption = "10"

Option1(1).Caption = "15"

Option1(2).Caption = "20"

Option1(3).Caption = "30"

End Sub

Private Sub Option1_Click(Index As Integer)

Text1.FontSize = Val(Option1(Index).Caption)

End Sub

vb2022可以创建控件数组吗

创建“Windows应用程序”类型的工程,添加名为ButtonArray的类,并使该类继承 System.Collection.CollectionBase 类。System.Collections.CollectionBase类是.NET框架类库中为集合操作提供抽象的基类,通过对它的继承可以为我们的ButtonArray类具备集合增加、删除、索引的功能。

2、为ButtonArray类添加ParentForm属性,即控件组所在窗体,创建初始化函数(构造函数);

3、为控件数组类增加AddItem方法,该方法在控件数组类中添加成员;

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) '添加窗体

Dim Index As Integer = i.TabIndex '没index属性

Str(n) = Index

i.Text = Str(n) 'str数组值赋值给文本框

n += 1

Next

vb.net如何使用控件数组,希望可以用label为例

vb.net和vb6.0不同,无法直接使用控件数组。不过可以通过其他方式变通一下。

比如现在有10个label,要将这10个label的text属性统一设置为“这是第X个标签”(X为1-10)。

1.建立10个label,名称分别为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.net创建数组控件 vb自定义类型数组的应用
当前网址:http://myzitong.com/article/hgjigi.html