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://vcdvsql.cn/article6/doishig.html

成都網站建設公司_創新互聯，為您提供虛擬主機、網站排名、定制開發、網站導航、網站維護、外貿建站

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯