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

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

目前創新互聯已為1000多家的企業提供了網站建設、域名、網絡空間、網站托管、服務器租用、企業網站設計、鄖西網站維護等服務，公司將堅持客戶導向、應用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協力一起成長，共同發展。

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

VB.net如何實現點擊不同控件分別調用相同子窗體，以控件名稱動態命名子窗體名稱

1，添加一個模塊，在模塊里聲明一個全局公共變量N；

2，在控件的調用窗體代碼段里，把此控件名稱給這個全局公共變量N賦值；

3，在窗體的Load()事件里，寫代碼： Me.Text = N。

VB.NET 變量和字符串組成控件名

直接For就行了

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)

'得到一個Label,可以對它進行賦值操作了

Msgbox lbl.Name

End If

Next