vb.net獲取控件名稱 vb獲取文件夾內(nèi)文件名

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

For Each c As Control In Me.Controls

讓客戶滿意是我們工作的目標，不斷超越客戶的期望值來自于我們對這個行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡單的方式提供給客戶，將通過不懈努力成為客戶在信息化領域值得信任、有價值的長期合作伙伴，公司提供的服務項目有：域名注冊、虛擬主機、營銷軟件、網(wǎng)站建設、通河網(wǎng)站維護、網(wǎng)站推廣。

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?'鼠標點擊狀態(tài)

'注：如果已知點擊目標控件的父控件，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

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

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

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

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

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

VB.NET 怎么獲取控件后面的數(shù)字

如果你能確保你的label空間名稱是以label開頭，并且后面是數(shù)字的話，可以通過Sender.Name的方式來獲取控件名稱，再用Substring來截取后面的數(shù)字。

Private

Sub

Label1_MouseEnter(sender

As

Object,

e

As

EventArgs)

Handles

Label1.MouseEnter,

Label2.MouseEnter

'sender.name就是用來獲取當前觸發(fā)事件的控件的名稱

Dim

n

As

Integer

n

=

Int(sender.name.ToString.Substring(5))

Call

Menter(n)

End

Sub

網(wǎng)頁名稱：vb.net獲取控件名稱 vb獲取文件夾內(nèi)文件名
鏈接URL：http://muchs.cn/article34/hgiose.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供微信小程序、品牌網(wǎng)站制作、網(wǎng)站設計、企業(yè)網(wǎng)站制作、ChatGPT、網(wǎng)站導航

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)