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

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

我们提供的服务有：成都网站设计、网站建设、外贸网站建设、微信公众号开发、网站优化、网站认证、献县ssl等。为近1000家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的献县网站制作公司

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控件

Anchor属性可以被设定为Top Bottom Left和Right的任何组合 默认设置是Top Left 这可以保持控件的top left角与视窗边框具有相同的相对位置 设置Anchor属性为Top and Bottom可以垂直地调整控件 保证从视窗底部到控件底部距离相同

Me TextBox Anchor = （System Windows Forms AnchorStyles Top Or System Windows Forms AnchorStyles Left）

Dock属性

这个属性可以被设置为Top Bottom Left Right或Fill 将其设置为Top Bottom Left或Right可以使控件紧挨指定的视窗边缘 或者紧挨已放置到相应视窗边缘的其他控件 设置Dock属性为Fill可以使控件调整为充满视窗的整个客户区

Me Panel Dock = System Windows Forms DockStyle Bottom

你还可以使用DockPadding对象来设置填充视窗边框和已放置好的控件间的区域 它有对应每个视窗边框的属性 如果想要边框对每个边都一致也可以通过设置All属性实现

Me DockPadding All =   lishixinzhi/Article/program/net/201311/14503

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所有控件 vb中的控件有哪些
文章起源：http://kswjz.com/article/hjhods.html