vb.net數組(VB.NET控件數組怎么用)

VB.NET的功能非常強大,可以實現代碼的托管,以及強化代碼架構,為程序員帶來一個安全性較強的開發環境。我們在這里首先創建一個Button類型的VB.NET控件數組,來解釋一下相關知識點。

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

2、為ButtonArray類添加ParentForm屬性,即控件組所在窗體,創建初始化函數(構造函數);

3、為控件數組類增加AddItem方法,該方法在控件數組類中添加成員;

4、為控件數組類增加RemoveItem方法,該方法在控件數組中刪除一個成員。

VB.NET控件數組創建的示例代碼:

1. PublicClassButtonArray

2. InheritsSystem.Collections.
   CollectionBase

3. PrivateReadOnlyParentForm
   AsSystem.Windows.Forms.Form

4. PublicSubNew(ByValpForm
   AsSystem.Windows.Forms.Form)

5. ParentForm=pForm

6. EndSub

DefaultPublicReadOnlyPropertyItem
(ByValindexAsInteger)AsSystem.
Windows.Forms.Button 
Get 
ReturnMe.List.Item(index)
'ButtonArray的List屬性從
CollectionBase繼承 
EndGet 
EndProperty

PublicSubAddItem() 
DimbtnItemAsNewSystem.
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 
AddHandlerbtnItem.Click,
AddressOfbtnItem_Click
'綁定事件處理程序 
EndSub

PublicSubAddItem(ByValbtnItem
AsSystem.Windows.Forms.Button) 
Me.List.Add(btnItem) 
AddHandlerbtnItem.Click,
AddressOfbtnItem_Click
'綁定事件處理程序 
EndSub 
PublicSubRemoveItem() 
IfMe.Count>0Then 
ParentForm.Controls.Remove
(Me(Me.Count-1)) 
Me.List.RemoveAt(Me.Count-1) 
EndIf 
EndSub

PublicSubbtnItem_Click
(ByValsenderAsObject,
ByValeAsSystem.EventArgs) 
'在這里編寫控件數組對點擊事件的響應 
'例如: 
MsgBox("點擊:"&sender.GetType().
ToString&CType(CType(sender,
Button).Tag,String)) 
EndSub 
EndClass