Private Sub b_click(sender As Object, e As EventArgs)

豐澤網(wǎng)站制作公司哪家好,找成都創(chuàng)新互聯(lián)公司!從網(wǎng)頁設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、成都響應(yīng)式網(wǎng)站建設(shè)等網(wǎng)站項(xiàng)目制作,到程序開發(fā),運(yùn)營維護(hù)。成都創(chuàng)新互聯(lián)公司于2013年創(chuàng)立到現(xiàn)在10年的時(shí)間,我們擁有了豐富的建站經(jīng)驗(yàn)和運(yùn)維經(jīng)驗(yàn),來保證我們的工作的順利進(jìn)行。專注于網(wǎng)站建設(shè)就選成都創(chuàng)新互聯(lián)公司。
MsgBox(sender.name)
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim b() As Button = {Button1, Button2, Button3}
For Each i In b
AddHandler i.Click, AddressOf b_click
Next
End Sub
對于窗體中的容器控件,比如 GroupBox,Panel 等,它僅僅訪問了這些控件本身,而不會(huì)去訪問它們的子控件。為了實(shí)現(xiàn)你所要求的功能,需要將上述代碼修改:
Public Sub IterateThroughControls(ByVal parent As Control)
For Each c As Control In parent.Controls
MessageBox.Show(c.ToString())
If c.HasChildern Then
'利用遞歸實(shí)現(xiàn)容器子控件的訪問,重復(fù)循環(huán)遍歷控件,調(diào)用自身函數(shù)
IterateThroughControls(c)
End If
Next
End Sub
調(diào)用方法:
IterateThroughControls(TabControl1) 'tabcontrol1為控件名,也可用groupbox1等
此外,判斷遍歷的控件是不是相應(yīng)的文本控件,或者combobox控件,可用此代碼判斷
For Each t As Control In Me.Controls
If TypeOf t Is TextBox Then
MsgBox(t)
End If
Next
我有篇文章專門講到了線程和委托的使用,保證你一看就懂。我就不多說了,自己看看:
Dim Str(20) As String '20數(shù)據(jù)元素
Dim Text(20) As TextBox
Dim n As Integer = 0
For Each i In Text
i = New TextBox '實(shí)例化
i.Location = New Point(50, n * 20)
Me.Controls.Add(i) '添加窗體
Dim Index As Integer = i.TabIndex '沒index屬性
Str(n) = Index
i.Text = Str(n) 'str數(shù)組值賦值給文本框
n += 1
Next
如果是.NET平臺(tái)的,你可以使用ComponentOne Enterprise 全功能.NET控件集中的布局控件實(shí)現(xiàn)。也可以試試ComponentOne的LinearGauge 控件,這是一個(gè)線性儀表器,顯示為一個(gè)值和象征參考值的可選范圍。線性儀表盤(LinearGauge)控件提供了一個(gè) ShowText 屬性,用來決定哪些值以文本顯示。
》》傳送門:網(wǎng)頁鏈接
網(wǎng)頁名稱:vb.net控件集 vb基本控件
文章URL:http://chinadenli.net/article28/hipojp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供電子商務(wù)、外貿(mào)建站、定制網(wǎng)站、App設(shè)計(jì)、手機(jī)網(wǎng)站建設(shè)、外貿(mào)網(wǎng)站建設(shè)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)