用vb.net如何 編程遍歷頁面上所有TextBox控件并給它賦值為string.Empty？

For Each ctl As Control In Me.Controls If TryCast(ctl, TextBox) Nothing Then Dim txt As TextBox = TryCast(ctl, TextBox) txt.Text = "" End If

創(chuàng)新互聯(lián)專注于企業(yè)成都全網(wǎng)營銷推廣、網(wǎng)站重做改版、庫倫網(wǎng)站定制設(shè)計(jì)、自適應(yīng)品牌網(wǎng)站建設(shè)、H5場景定制、商城系統(tǒng)網(wǎng)站開發(fā)、集團(tuán)公司官網(wǎng)建設(shè)、成都外貿(mào)網(wǎng)站制作、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁設(shè)計(jì)等建站業(yè)務(wù)，價(jià)格優(yōu)惠性價(jià)比高，為庫倫等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。

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

c#?用程序轉(zhuǎn)的，也不知道對不對。你看看有沒有幫助?,這是遍歷所有控件,還有一個(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

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

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

vb.net中如何遍歷程序窗體中的控件？并讀寫控件的數(shù)據(jù)。

Public?Sub?GetAllControls(ByVal?InContainer?As?Control,?ByRef?RecieveList?As?ListBox)

For?i?As?Integer?=?0?To?InContainer.Controls.Count?-?1

If?InContainer.Controls.Item(i).Text??""?Then

GetList.Items.Add(InContainer.Controls.Item(i).Text??vbCrLf)

End?If

If?InContainer.Controls.Item(i).Controls.Count??0?Then

GetAllControls(InContainer.Controls.Item(i),?GetList)

End?If

Next

End?Sub

這段代碼可行，但不能遍歷菜單和工具欄，要按需要修改

分享題目：vb.net控件遍歷 c# 遍歷控件
本文鏈接：http://jinyejixie.com/article20/dochgco.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供面包屑導(dǎo)航、網(wǎng)站排名、App設(shè)計(jì)、商城網(wǎng)站、微信小程序、品牌網(wǎng)站設(shè)計(jì)

廣告

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