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是一样的。
Dim TestItem() As String = New String() {"Pickle", "Pineapple", "Papaya"} '创建数组 并赋值
Dim TestShoppingList As String = Join(TestItem, " = ") 'Join 就是字符联接函数 后面的 =号 可选 为空值就把所有的字符串在一起 本例用=号 就是把 所有数组的值用 =号联接起来
MsgBox(TestShoppingList) '显示结果值
'这例子 就一个函数可以解决 就不发图片了
希望能帮到你 你慢慢研究吧 有问题可以找我
看到的 爱好者 多顶我一下 谢谢呵呵
你这是控件数组?你这明明就是9个不同的 TextBox 控件啊,只不过名字长得像而已。
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
Public 长度() As TextBox = { Pipe_0 , Pipe_1 , Pipe_2 , Pipe_3 }
这个数组定义是有问题的,你定义的是TextBox数组,{}号里必须是而TextBox类型,例如:
Public 长度() As TextBox = { New TextBox , New TextBox , New TextBox }
Pipe_0-3不是任何类型和值,这个VS应该直接报错才对!标准的定义应该如下:
Public Class Pipe
Public 长度() As TextBox
Sub New()
Me.长度 = {New TextBox, New TextBox, New TextBox, New TextBox}
End Sub
Private Sub xxxxxxxxxxxx.Click
MsgBox(长度(2).Name)
End Sub
End Class
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}