vb.net 怎樣創(chuàng)建控件數(shù)組？

Dim Str(20) As String '20數(shù)據(jù)元素

成都創(chuàng)新互聯(lián)公司2013年開創(chuàng)至今，是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司，擁有項目成都網(wǎng)站設(shè)計、網(wǎng)站建設(shè)網(wǎng)站策劃，項目實施與項目整合能力。我們以讓每一個夢想脫穎而出為使命，1280元廣德做網(wǎng)站,已為上家服務(wù),為廣德各地企業(yè)和個人服務(wù),聯(lián)系電話:028-86922220

Dim Text(20) As TextBox

Dim n As Integer = 0

For Each i In Text

i = New TextBox '實例化

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

VB.net 界面所有控件的集合是什么？為什么Me.Controls只包含了最底層的Plane？？

對于窗體中的容器控件，比如 GroupBox，Panel 等，它僅僅訪問了這些控件本身，而不會去訪問它們的子控件。為了實現(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

'利用遞歸實現(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

VB.NET 如何引用動態(tài)生成控件？

似有控件遍歷窗體控件集合，或在控件集合中查詢該控件名字，公用控件直接名字

vb.net 控件集合

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

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

VB.net怎么獲取TabControl中的所有控件

子控件集合。

.controls

第一個子控件的子控件集合。

.controls(0).controls

當(dāng)前文章：vb.net控件集合,vb框架控件
本文鏈接：http://vcdvsql.cn/article6/hshiog.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供App設(shè)計、軟件開發(fā)、商城網(wǎng)站、手機網(wǎng)站建設(shè)、外貿(mào)建站、營銷型網(wǎng)站建設(shè)

廣告

聲明：本網(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)