vb.net怎么遍歷所有控件，使Click都執(zhí)行相同的過程

c#?用程序轉(zhuǎn)的，也不知道對不對。你看看有沒有幫助?,這是遍歷所有控件,還有一個辦法就是重載form的消息處理函數(shù)應該也是可以的。

我們提供的服務有：成都網(wǎng)站設計、網(wǎng)站建設、外貿(mào)網(wǎng)站建設、微信公眾號開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認證、獻縣ssl等。為近1000家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務，是有科學管理、有技術的獻縣網(wǎng)站制作公司

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

如何輕松調(diào)整VB.NET控件

Anchor屬性可以被設定為Top Bottom Left和Right的任何組合 默認設置是Top Left 這可以保持控件的top left角與視窗邊框具有相同的相對位置 設置Anchor屬性為Top and Bottom可以垂直地調(diào)整控件 保證從視窗底部到控件底部距離相同

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可以使控件調(diào)整為充滿視窗的整個客戶區(qū)

Me Panel Dock = System Windows Forms DockStyle Bottom

你還可以使用DockPadding對象來設置填充視窗邊框和已放置好的控件間的區(qū)域 它有對應每個視窗邊框的屬性 如果想要邊框?qū)γ總€邊都一致也可以通過設置All屬性實現(xiàn)

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