小編給大家分享一下VB.NET控件數(shù)組怎么用，相信大部分人都還不怎么了解，因此分享這篇文章給大家參考一下，希望大家閱讀完這篇文章后大有收獲，下面讓我們一起去了解一下吧！

在萊西等地區(qū)，都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局，加強(qiáng)發(fā)展的系統(tǒng)性、市場(chǎng)前瞻性、產(chǎn)品創(chuàng)新能力，以專注、極致的服務(wù)理念，為客戶提供網(wǎng)站制作、網(wǎng)站建設(shè) 網(wǎng)站設(shè)計(jì)制作定制開發(fā),公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),成都品牌網(wǎng)站建設(shè),營銷型網(wǎng)站,成都外貿(mào)網(wǎng)站制作,萊西網(wǎng)站建設(shè)費(fèi)用合理。

VB.NET的功能非常強(qiáng)大，可以實(shí)現(xiàn)代碼的托管，以及強(qiáng)化代碼架構(gòu)，為程序員帶來一個(gè)安全性較強(qiáng)的開發(fā)環(huán)境。我們?cè)谶@里首先創(chuàng)建一個(gè)Button類型的VB.NET控件數(shù)組，來解釋一下相關(guān)知識(shí)點(diǎn)。

1、創(chuàng)建“Windows應(yīng)用程序”類型的工程，添加名為ButtonArray的類，并使該類繼承 System.Collection.CollectionBase 類。System.Collections.CollectionBase類是.NET框架類庫中為集合操作提供抽象的基類，通過對(duì)它的繼承可以為我們的ButtonArray類具備集合增加、刪除、索引的功能。

2、為ButtonArray類添加ParentForm屬性，即控件組所在窗體，創(chuàng)建初始化函數(shù)（構(gòu)造函數(shù)）；

3、為控件數(shù)組類增加AddItem方法，該方法在控件數(shù)組類中添加成員；

4、為控件數(shù)組類增加RemoveItem方法，該方法在控件數(shù)組中刪除一個(gè)成員。

VB.NET控件數(shù)組創(chuàng)建的示例代碼：

1. Public Class ButtonArray  

2. Inherits System.Collections.
   CollectionBase  

3. Private ReadOnly ParentForm 
   As System.Windows.Forms.Form  

4. Public Sub New(ByVal pForm 
   As System.Windows.Forms.Form)  

5. ParentForm = pForm 

6. 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ù)組對(duì)點(diǎn)擊事件的響應(yīng)  
'例如：  
MsgBox("點(diǎn)擊：" & sender.GetType().
ToString & CType(CType(sender, 
Button).Tag, String))  
End Sub  
End Class 

以上是“VB.NET控件數(shù)組怎么用”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對(duì)大家有所幫助，如果還想學(xué)習(xí)更多知識(shí)，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

本文名稱：VB.NET控件數(shù)組怎么用
網(wǎng)站地址：http://www.rwnh.cn/article10/gshdgo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供用戶體驗(yàn)、微信公眾號(hào)、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)站收錄、定制網(wǎng)站、網(wǎng)站內(nèi)鏈

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)