vb.net 鼠標點擊控件時 怎樣得到控件的名字

這個簡單。

成都創新互聯公司是一家集網站建設,察哈爾右翼后企業網站建設,察哈爾右翼后品牌網站建設,網站定制,察哈爾右翼后網站建設報價,網絡營銷,網絡優化,察哈爾右翼后網站推廣為一體的創新建站企業，幫助傳統企業提升企業形象加強企業競爭力。可充分滿足這一群體相比中小企業更為豐富、高端、多元的互聯網需求。同時我們時刻保持專業、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學習、思考、沉淀、凈化自己，讓我們為更多的企業打造出實用型網站。

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

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

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

For Each c As Control In Me.Controls

MessageBox.Show(c.ToString())

Next

一個簡單的例子,遍歷當前Form下所有TextBox并將Text屬性設置為空

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?'鼠標點擊狀態

'注：如果已知點擊目標控件的父控件，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)?'轉換Object為控件類型

ctrName?=?ctr.Name?'獲取控件名稱

ctrParent?=?ctr.Parent?'獲取控件的父控件

End?If

End?Sub

'增加這個父控件事件，是為了正確判別鼠標彈起時是否已進入指定目標

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

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

If?isClick?Then?isClick?=?False?'點擊狀態關閉

End?Sub

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

Handles?Button2.MouseEnter

If?isClick?Then?'如果點擊狀態為打開

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

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

End?If

End?Sub