网创优客建站品牌官网
为成都网站建设公司企业提供高品质网站建设
热线:028-86922220
成都专业网站建设公司

定制建站费用3500元

符合中小企业对网站设计、功能常规化式的企业展示型网站建设

成都品牌网站建设

品牌网站建设费用6000元

本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...

成都商城网站建设

商城网站建设费用8000元

商城网站建设因基本功能的需求不同费用上面也有很大的差别...

成都微信网站建设

手机微信网站建站3000元

手机微信网站开发、微信官网、微信商城网站...

建站知识

当前位置:首页 > 建站知识

vb.net遍历控件 vb中的遍历是什么意思

vb.net怎么遍历所有控件,使Click都执行相同的过程

c# 用程序转的,也不知道对不对。你看看有没有帮助 ,这是遍历所有控件,还有一个办法就是重载form的消息处理函数应该也是可以的。

让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:域名申请雅安服务器托管、营销软件、网站建设、临城网站维护、网站推广。

STAThread _

Public Shared Sub Main(args As String())

Dim button = New Button()

button.Text = "我是按钮"

button.Dock = DockStyle.Fill

Dim form = New Form()

form.Controls.Add(button)

CapturehMouseClickEvent(form)

form.ShowDialog()

End Sub

Private Shared Sub CapturehMouseClickEvent(control As Control)

AddHandler control.Click, AddressOf ControlOnClick

For Each subControl As Control In control.Controls

CapturehMouseClickEvent(subControl)

Next

End Sub

Private Shared Sub ControlOnClick(sender As Object, eventArgs As EventArgs)

Debug.WriteLine("控制被单击")

End Sub

关于遍历VB.net窗体里面控件的问题

可以的,需要判断控件类型并做一下类型转换。

For Each c As Control In Me.Controls

If TypeOf(c) Is TextBox Then

Dim t As TextBox = CType(c ,TextBox)

'调用t的方法即可

End If

Next

vb.net panel里的控件如何遍历

Public Sub ReSetText(Control ctrl)        

Dim ct As Control

For Each ct In ctrl.Controls

Try

For Each ct2 As Control In ct.Controls

ReSetText(ct2)

Next

Catch

End Try

If (TypeOf ct Is TextBox) Then

ct.Text = ""

ElseIf (TypeOf ct Is ComboBox) Then

Dim cb As System.Windows.Forms.ComboBox = DirectCast(ct, System.Windows.Forms.ComboBox)

cb.SelectedIndex = -1

End If

Next

End Sub

因为textbox在窗体里的panel里,你只遍历窗体的控件是不够的。


当前题目:vb.net遍历控件 vb中的遍历是什么意思
网页地址:http://bjjierui.cn/article/doishig.html

其他资讯