For Each c As Control In Me.Controls
曲松ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場(chǎng)景,ssl證書(shū)未來(lái)市場(chǎng)廣闊!成為創(chuàng)新互聯(lián)公司的ssl證書(shū)銷售渠道,可以享受市場(chǎng)價(jià)格4-6折優(yōu)惠!如果有意向歡迎電話聯(lián)系或者加微信:18980820575(備注:SSL證書(shū)合作)期待與您的合作!
MessageBox.Show(c.ToString())
Next
一個(gè)簡(jiǎn)單的例子,遍歷當(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
Private?ctrName?As?String?'控件名稱
Private?isClick?As?Boolean?'鼠標(biāo)點(diǎn)擊狀態(tài)
'注:如果已知點(diǎn)擊目標(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
'增加這個(gè)父控件事件,是為了正確判別鼠標(biāo)彈起時(shí)是否已進(jìn)入指定目標(biāo)
Private?Sub?ParentMouseMove(sender?As?Object,?e?As?EventArgs)?_
Handles?ctrParent.MouseMove?'如果已取消ctrParent變量,改為相應(yīng)的父控件
If?isClick?Then?isClick?=?False?'點(diǎn)擊狀態(tài)關(guān)閉
End?Sub
Private?Sub?ControlBMouseUp(sender?As?Object,?e?As?EventArgs)?_
Handles?Button2.MouseEnter
If?isClick?Then?'如果點(diǎn)擊狀態(tài)為打開(kāi)
Dim?ctr?As?Control?=?CType(sender,?Control)?'轉(zhuǎn)換Object為控件類型
MsgBox(ctrName??"?|?"??ctr.Name)?'彈出消息顯示結(jié)果
End?If
End?Sub
1、打開(kāi)VB軟件,在編輯界面中插入一個(gè)CommandButton按鈕,并設(shè)置名稱為判斷。
2、接著,來(lái)更改按鈕中文本的字體格式。在右側(cè)屬性窗口中,找到Font選項(xiàng)。
3、單擊字體后面的瀏覽按鈕。
4、字體選項(xiàng)中,可以更改控件中文本的字體,本人選擇隸書(shū)。
5、字形中,可以更改控件文本的字形,本人選擇了粗體傾斜。
6、大小中,可以更改文本的大小,本人將其設(shè)置為二號(hào)。
7、效果中,可以選擇是否添加刪除線和下劃線,本人不進(jìn)行設(shè)置。
8、單擊確定后,可以看到按鈕控件中的文本,設(shè)置為自己需要的格式了。
這個(gè)簡(jiǎn)單。
在VB.net中,每個(gè)事件都對(duì)應(yīng)有兩個(gè)參數(shù):sender 和 e 。提取 sender 參數(shù)信息就可以獲取控件名稱。如果不理解其中機(jī)制,你直接 msgbox(sender) 將其輸出,就能查看其中玄機(jī)。
獲取控件名稱代碼:CType(sender, Control).Name。