vb.net 鼠標(biāo)點擊控件時 怎樣得到控件的名字

這個簡單。

成都創(chuàng)新互聯(lián)公司是一家集網(wǎng)站建設(shè),察哈爾右翼后企業(yè)網(wǎng)站建設(shè),察哈爾右翼后品牌網(wǎng)站建設(shè),網(wǎng)站定制,察哈爾右翼后網(wǎng)站建設(shè)報價,網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,察哈爾右翼后網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競爭力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實用型網(wǎng)站。

在VB.net中，每個事件都對應(yīng)有兩個參數(shù)：sender 和 e 。提取 sender 參數(shù)信息就可以獲取控件名稱。如果不理解其中機(jī)制，你直接 msgbox(sender) 將其輸出，就能查看其中玄機(jī)。

獲取控件名稱代碼：CType(sender, Control).Name。

vb.net怎么獲取控件的名稱

For Each c As Control In Me.Controls

MessageBox.Show(c.ToString())

Next

一個簡單的例子,遍歷當(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

vb.net怎樣獲取同類控件名稱

Private?ctrName?As?String?'控件名稱

Private?isClick?As?Boolean?'鼠標(biāo)點擊狀態(tài)

'注：如果已知點擊目標(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

'增加這個父控件事件，是為了正確判別鼠標(biāo)彈起時是否已進(jìn)入指定目標(biāo)

Private?Sub?ParentMouseMove(sender?As?Object,?e?As?EventArgs)?_

Handles?ctrParent.MouseMove?'如果已取消ctrParent變量，改為相應(yīng)的父控件

If?isClick?Then?isClick?=?False?'點擊狀態(tài)關(guān)閉

End?Sub

Private?Sub?ControlBMouseUp(sender?As?Object,?e?As?EventArgs)?_

Handles?Button2.MouseEnter

If?isClick?Then?'如果點擊狀態(tài)為打開

Dim?ctr?As?Control?=?CType(sender,?Control)?'轉(zhuǎn)換Object為控件類型

MsgBox(ctrName??"?|?"??ctr.Name)?'彈出消息顯示結(jié)果

End?If

End?Sub