日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

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

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

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

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

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

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

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

 

VB.NET控件數(shù)組的創(chuàng)建方法就為大家介紹到這里。

網(wǎng)站題目：VB.NET控件數(shù)組使用經(jīng)驗詳細分析
URL鏈接：http://www.dlmjj.cn/article/dpsepgd.html