Public?Sub?ReSetText(Control?ctrl)????????
10余年的荔浦網(wǎng)站建設(shè)經(jīng)驗(yàn),針對(duì)設(shè)計(jì)、前端、開(kāi)發(fā)、售后、文案、推廣等六對(duì)一服務(wù),響應(yīng)快,48小時(shí)及時(shí)工作處理。營(yíng)銷(xiāo)型網(wǎng)站建設(shè)的優(yōu)勢(shì)是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同,自動(dòng)調(diào)整荔浦建站的顯示方式,使網(wǎng)站能夠適用不同顯示終端,在瀏覽器中調(diào)整網(wǎng)站的寬度,無(wú)論在任何一種瀏覽器上瀏覽網(wǎng)站,都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì),從而大程度地提升瀏覽體驗(yàn)。創(chuàng)新互聯(lián)從事“荔浦網(wǎng)站設(shè)計(jì)”,“荔浦網(wǎng)站推廣”以來(lái),每個(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里,你只遍歷窗體的控件是不夠的。
c#?用程序轉(zhuǎn)的,也不知道對(duì)不對(duì)。你看看有沒(méi)有幫助?,這是遍歷所有控件,還有一個(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
可以的,需要判斷控件類(lèi)型并做一下類(lèi)型轉(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
新聞標(biāo)題:vb.net控件遍歷 vbnet for each
鏈接地址:http://jinyejixie.com/article24/ddogpje.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供建站公司、App開(kāi)發(fā)、ChatGPT、網(wǎng)站導(dǎo)航、企業(yè)建站、靜態(tài)網(wǎng)站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)