网站建设资讯

NEWS

网站建设资讯

vb.net控件集合,vb框架控件

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

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

成都创新互联公司2013年开创至今,是专业互联网技术服务公司,拥有项目成都网站设计、网站建设网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元广德做网站,已为上家服务,为广德各地企业和个人服务,联系电话:028-86922220

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 界面所有控件的集合是什么?为什么Me.Controls只包含了最底层的Plane??

对于窗体中的容器控件,比如 GroupBox,Panel 等,它仅仅访问了这些控件本身,而不会去访问它们的子控件。为了实现你所要求的功能,需要将上述代码修改:

Public Sub IterateThroughControls(ByVal parent As Control)

For Each c As Control In parent.Controls

MessageBox.Show(c.ToString())

If c.HasChildern Then

'利用递归实现容器子控件的访问,重复循环遍历控件,调用自身函数

IterateThroughControls(c)

End If

Next

End Sub

调用方法:

IterateThroughControls(TabControl1) 'tabcontrol1为控件名,也可用groupbox1等

此外,判断遍历的控件是不是相应的文本控件,或者combobox控件,可用此代码判断

For Each t As Control In Me.Controls

If TypeOf t Is TextBox Then

MsgBox(t)

End If

Next

VB.NET 如何引用动态生成控件?

似有控件遍历窗体控件集合,或在控件集合中查询该控件名字,公用控件直接名字

vb.net 控件集合

Private Sub b_click(sender As Object, e As EventArgs)

MsgBox(sender.name)

End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim b() As Button = {Button1, Button2, Button3}

For Each i In b

AddHandler i.Click, AddressOf b_click

Next

End Sub

VB.net怎么获取TabControl中的所有控件

子控件集合。

.controls

第一个子控件的子控件集合。

.controls(0).controls


当前标题:vb.net控件集合,vb框架控件
当前网址:http://cdweb.net/article/hshiog.html