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

Public?Sub?ReSetText(Control?ctrl)????????

10余年的荔浦網(wǎng)站建設(shè)經(jīng)驗(yàn)，針對(duì)設(shè)計(jì)、前端、開發(fā)、售后、文案、推廣等六對(duì)一服務(wù)，響應(yīng)快，48小時(shí)及時(shí)工作處理。營(yíng)銷型網(wǎng)站建設(shè)的優(yōu)勢(shì)是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同，自動(dòng)調(diào)整荔浦建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì)，從而大程度地提升瀏覽體驗(yàn)。創(chuàng)新互聯(lián)從事“荔浦網(wǎng)站設(shè)計(jì)”,“荔浦網(wǎng)站推廣”以來，每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。

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

因?yàn)閠extbox在窗體里的panel里，你只遍歷窗體的控件是不夠的。

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

c#?用程序轉(zhuǎn)的，也不知道對(duì)不對(duì)。你看看有沒有幫助?,這是遍歷所有控件,還有一個(gè)辦法就是重載form的消息處理函數(shù)應(yī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

關(guān)于遍歷VB.net窗體里面控件的問題

可以的，需要判斷控件類型并做一下類型轉(zhuǎn)換。

For Each c As Control In Me.Controls

If TypeOf(c) Is TextBox Then

Dim t As TextBox = CType(c ,TextBox)

'調(diào)用t的方法即可

End If

Next