Private?ctrName?As?String?'控件名稱
成都創新互聯公司-專業網站定制、快速模板網站建設、高性價比武陵網站開發、企業建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式武陵網站制作公司更省心,省錢,快速模板網站建設找我們,業務覆蓋武陵地區。費用合理售后完善,十載實體公司更值得信賴。
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
Dim c As Control
For Each c In Me.Controls
Debug.WriteLine(c.Name ":" TypeName(c))
Next
這個簡單。
在VB.net中,每個事件都對應有兩個參數:sender 和 e 。提取 sender 參數信息就可以獲取控件名稱。如果不理解其中機制,你直接 msgbox(sender) 將其輸出,就能查看其中玄機。
獲取控件名稱代碼:CType(sender, Control).Name。
網頁題目:vb.net獲取控件類型 vbnet chart控件
網站鏈接:http://vcdvsql.cn/article18/ddcsddp.html
成都網站建設公司_創新互聯,為您提供企業建站、微信小程序、Google、網站制作、網站策劃、企業網站制作
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯