建站
咨詢
售后
建站咨詢
新聞中心
VB.NET中怎么創(chuàng)建一個控件數(shù)組，很多新手對此不是很清楚，為了幫助大家解決這個難題，下面小編將為大家詳細(xì)講解，有這方面需求的人可以來學(xué)習(xí)下，希望你能有所收獲。
創(chuàng)新互聯(lián)專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于網(wǎng)站制作、網(wǎng)站設(shè)計(jì)、茂名網(wǎng)絡(luò)推廣、微信小程序開發(fā)、茂名網(wǎng)絡(luò)營銷、茂名企業(yè)策劃、茂名品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營等，從售前售中售后，我們都將竭誠為您服務(wù)，您的肯定，是我們最大的嘉獎；創(chuàng)新互聯(lián)為所有大學(xué)生創(chuàng)業(yè)者提供茂名建站搭建服務(wù)，24小時服務(wù)熱線：13518219792，官方網(wǎng)址：www.cdcxhl.com
在VB.NET創(chuàng)建控件數(shù)組
首先創(chuàng)建一個Button類型控件數(shù)組：
1、創(chuàng)建“Windows應(yīng)用程序”類型的工程，添加名為ButtonArray的類，并使該類繼承 System.Collection.CollectionBase 類。System.Collections.CollectionBase類是.NET框架類庫中為集合操作提供抽象的基類，通過對它的繼承可以為我們的 ButtonArray類具備集合增加、刪除、索引的功能。
2、為ButtonArray類添加ParentForm屬性，即控件組所在窗體，創(chuàng)建初始化函數(shù)（構(gòu)造函數(shù)）；
3、為控件數(shù)組類增加AddItem方法，該方法在控件數(shù)組類中添加成員；
4、為控件數(shù)組類增加RemoveItem方法，該方法在控件數(shù)組中刪除一個成員。
VB.NET創(chuàng)建控件數(shù)組代碼示例：
Public Class ButtonArray
Inherits System.Collections.CollectionBase
Private ReadOnly ParentForm As System.Windows.Forms.Form
Public Sub New(ByVal pForm As System.Windows.Forms.Form)
ParentForm = pForm
End Sub
Default Public ReadOnly Property Item(ByVal index As Integer)
As System.Windows.Forms.ButtonGet
Return Me.List.Item(index) @# ButtonArray的List 屬性從CollectionBase 繼承
End Get
End Property
Public Sub AddItem()
Dim btnItem As New System.Windows.Forms.Button
Me.List.Add(btnItem)
ParentForm.Controls.Add(btnItem)@#向窗體中增加控件
btnItem.Tag = Me.Count@#Count屬性從CollectionBase 繼承
btnItem.Top = Me.Count * 30
btnItem.Left = 200
btnItem.Text = "Button" & Me.Count.ToString
AddHandler btnItem.Click, AddressOf btnItem_Click @#綁定事件處理程序
End Sub
Public Sub AddItem(ByVal btnItem As System.Windows.Forms.Button)
Me.List.Add(btnItem)
AddHandler btnItem.Click, AddressOf btnItem_Click @#綁定事件處理程序
End Sub
Public Sub RemoveItem()
If Me.Count > 0 Then
ParentForm.Controls.Remove(Me(Me.Count - 1))
Me.List.RemoveAt(Me.Count - 1)
End If
End Sub
Public Sub btnItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)
@#在這里編寫控件數(shù)組對點(diǎn)擊事件的響應(yīng)
@#例如：
MsgBox("點(diǎn)擊：" & sender.GetType().ToString & CType(CType(sender, Button).Tag, String))
End Sub
End Class
看完上述內(nèi)容是否對您有幫助呢？如果還想對相關(guān)知識有進(jìn)一步的了解或閱讀更多相關(guān)文章，請關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道，感謝您對創(chuàng)新互聯(lián)的支持。
當(dāng)前題目：VB.NET中怎么創(chuàng)建一個控件數(shù)組
網(wǎng)頁路徑：http://ef60e0e.cn/article/gdjcdj.html
