成都创新互联网站制作重庆分公司

vb.net数组用法 数组控件vb编程代码

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

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

目前创新互联公司已为1000多家的企业提供了网站建设、域名、雅安服务器托管、网站改版维护、企业网站设计、梅里斯网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。

替代方法:

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

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

----------

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

//pn 是个 Panel 控件

foreach (Control item in pn.Controls)

{

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

{

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

}

}

vb.net 数组

vb.net已经去掉了控件数组这个类,不过有个代替该方式的一个属性:Tag,你可以把这些关联的Tag属性设置为同一标记,如:a。然后遍历所有的checkbox并且tag为a的则选定:Protected Sub chkAll_Click() For Each ctl As Control In Me.Controls ''如果checkbox在一个容器里,比如groupbox,那可以用groupbox.controls

If ctl.GetType().Name.ToLower() = "checkbox" Then

CType(ctl, CheckBox).Checked = CheckBox3.Checked

End If

NextEnd Sub

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中数组怎么定义

是这么定义的:

数组中的第一个元素的下标称为下界,最后一个元素的下标称为上界,其余的元素连续地分布在上下界之间,且数组在内存中也是用连续的区域来存储的,所以数组每维的长度不能超过Long数据类型的最大值,即264—1=263。

把VB.NET数组当作一个对象来处理,就意味着数组类型是单个引用类型,数组变量包括指向构成数组元素、数组维和数组长度等数据的指针,数组之间互相赋值但仅仅是在相互复制指针,数组继承了System名字空间的Array类。

VB.NET中的数组有两种类型:定长数组和动态数组。

扩展资料:

1、数组的使用

在’VB 6.0中,能够用For Each来循环遍历一个数组。

比如:

Dim x As Integer

F0r Each x In arrayl

Console.WriteLine(x)

Next 

2、在VB.NET中能够使用For循环和数组长度来遍历一个数组。

比如:

Dim i As工nteger   

F0r i=0 T0  (arrayl.Length-1)

(此处空一行)

Console.WriteLine(arrayl(1)J

Next i

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在数组定义中如何使用复合数据类型

你可以用结构数组的,如下:

...

Private Structure test

Dim name As String

Dim sex As String

Dim age As Integer

Dim salary As Integer

End Structure

Dim list(2) As test

Private Sub insert()

list(0).name = "张三"

list(0).age = "20"

list(0).salary = "1500"

list(0).sex = "男"

list(1).name = "李四"

list(1).age = "21"

list(1).salary = "1500"

list(1).sex = "女"

End Sub

...

你可以放到main()里输出一下,就是这样...


名称栏目:vb.net数组用法 数组控件vb编程代码
本文链接:http://cxhlcq.cn/article/dodcsoh.html

其他资讯

在线咨询

微信咨询

电话咨询

028-86922220(工作日)

18980820575(7×24)

提交需求

返回顶部