直接For就行了

建網(wǎng)站原本是網(wǎng)站策劃師、網(wǎng)絡(luò)程序員、網(wǎng)頁設(shè)計(jì)師等,應(yīng)用各種網(wǎng)絡(luò)程序開發(fā)技術(shù)和網(wǎng)頁設(shè)計(jì)技術(shù)配合操作的協(xié)同工作。創(chuàng)新互聯(lián)公司專業(yè)提供成都網(wǎng)站建設(shè)、成都網(wǎng)站制作,網(wǎng)頁設(shè)計(jì),網(wǎng)站制作(企業(yè)站、成都響應(yīng)式網(wǎng)站建設(shè)公司、電商門戶網(wǎng)站)等服務(wù),從網(wǎng)站深度策劃、搜索引擎友好度優(yōu)化到用戶體驗(yàn)的提升,我們力求做到極致!
Dim ctl As Control
Dim lbl as Label
For Each ctl In Me.Controls
If ctl.GetType.ToString = "System.Windows.Forms.Label" Then
lbl = CType(ctl,Label)
'得到一個(gè)Label,可以對(duì)它進(jìn)行賦值操作了
Msgbox lbl.Name
End If
Next
Private?ctrName?As?String?'控件名稱
Private?isClick?As?Boolean?'鼠標(biāo)點(diǎn)擊狀態(tài)
'注:如果已知點(diǎn)擊目標(biāo)控件的父控件,ctrParent變量可以不要。
Private?WithEvents?ctrParent?As?Control?'父控件
Private?Sub?ControlAMouseDown(sender?As?Object,?e?As?MouseEventArgs)?_
Handles?Button1.MouseDown
isClick?=?(e.Button?=?MouseButtons.Left?_
Or?e.Button?=?MouseButtons.Right)?'左鍵或右鍵按下
If?isClick?Then
Dim?ctr?As?Control?=?CType(sender,?Control)?'轉(zhuǎn)換Object為控件類型
ctrName?=?ctr.Name?'獲取控件名稱
ctrParent?=?ctr.Parent?'獲取控件的父控件
End?If
End?Sub
'增加這個(gè)父控件事件,是為了正確判別鼠標(biāo)彈起時(shí)是否已進(jìn)入指定目標(biāo)
Private?Sub?ParentMouseMove(sender?As?Object,?e?As?EventArgs)?_
Handles?ctrParent.MouseMove?'如果已取消ctrParent變量,改為相應(yīng)的父控件
If?isClick?Then?isClick?=?False?'點(diǎn)擊狀態(tài)關(guān)閉
End?Sub
Private?Sub?ControlBMouseUp(sender?As?Object,?e?As?EventArgs)?_
Handles?Button2.MouseEnter
If?isClick?Then?'如果點(diǎn)擊狀態(tài)為打開
Dim?ctr?As?Control?=?CType(sender,?Control)?'轉(zhuǎn)換Object為控件類型
MsgBox(ctrName??"?|?"??ctr.Name)?'彈出消息顯示結(jié)果
End?If
End?Sub
For Each c As Control In Me.Controls
MessageBox.Show(c.ToString())
Next
一個(gè)簡單的例子,遍歷當(dāng)前Form下所有TextBox并將Text屬性設(shè)置為空
For Each ct As Control In Me.Controls
If TypeOf ct Is TextBox Then
ct.Text = ""
End If
Next
這個(gè)簡單。
在VB.net中,每個(gè)事件都對(duì)應(yīng)有兩個(gè)參數(shù):sender 和 e 。提取 sender 參數(shù)信息就可以獲取控件名稱。如果不理解其中機(jī)制,你直接 msgbox(sender) 將其輸出,就能查看其中玄機(jī)。
獲取控件名稱代碼:CType(sender, Control).Name。
當(dāng)前文章:vb.net控件名稱,VB中的控件
標(biāo)題鏈接:http://chinadenli.net/article32/dseihpc.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供外貿(mào)建站、品牌網(wǎng)站設(shè)計(jì)、面包屑導(dǎo)航、微信公眾號(hào)、自適應(yīng)網(wǎng)站、網(wǎng)站營銷
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)