建站
咨詢
售后
建站咨詢
新聞中心
VB.NET還是比較常用的，于是我研究了一下VB.NET創(chuàng)建控件數(shù)組，在這里拿出來和大家分享一下，希望對大家有用。
為句容等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計制作服務(wù)，及句容網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為成都網(wǎng)站制作、做網(wǎng)站、外貿(mào)營銷網(wǎng)站建設(shè)、句容網(wǎng)站設(shè)計，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達(dá)到每一位用戶的要求，就會得到認(rèn)可，從而選擇與我們長期合作。這樣，我們也可以走得更遠(yuǎn)！
在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.Button- Get
- 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ù)組對點擊事件的響應(yīng)
- @#例如：
- MsgBox("點擊：" & sender.GetType().ToString & CType(CType(sender, Button).Tag, String))
- End Sub
- End Class
網(wǎng)站名稱：敘述VB.NET創(chuàng)建控件數(shù)組
URL地址：http://m.fisionsoft.com.cn/article/cdchesj.html
