日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務時間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
敘述VB.NET創(chuàng)建控件數(shù)組

VB.NET還是比較常用的，于是我研究了一下VB.NET創(chuàng)建控件數(shù)組，在這里拿出來和大家分享一下，希望對大家有用。

為句容等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計制作服務，及句容網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務為成都網(wǎng)站制作、做網(wǎng)站、外貿(mào)營銷網(wǎng)站建設(shè)、句容網(wǎng)站設(shè)計，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務。我們深信只要達到每一位用戶的要求，就會得到認可，從而選擇與我們長期合作。這樣，我們也可以走得更遠！

在VB.NET創(chuàng)建控件數(shù)組

首先創(chuàng)建一個Button類型控件數(shù)組：

1、創(chuàng)建“Windows應用程序”類型的工程，添加名為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ù)組代碼示例：

 
 
 
    
  
  
  
  1. Public Class ButtonArray  
    2.   
  
  
  2. Inherits System.Collections.CollectionBase  
    3.   
  
  
  3. Private ReadOnly ParentForm As System.Windows.Forms.Form  
    4.   
  
  
  4. Public Sub New(ByVal pForm As System.Windows.Forms.Form)  
    5.   
  
  
  5. ParentForm = pForm 
    6.   
  
  
  6. End Sub  
    7.   
  
  
  7.  
    8.   
  
  
  8. Default Public ReadOnly Property Item(ByVal index As Integer)
    As System.Windows.Forms.Button  
    9.   
  
  
  9. Get  
    10.   
  
  
  10. Return Me.List.Item(index) @# ButtonArray的List 屬性從CollectionBase 繼承  
    11.   
  
  
  11. End Get  
    12.   
  
  
  12. End Property  
    13.   
  
  
  13. Public Sub AddItem()  
    14.   
  
  
  14. Dim btnItem As New System.Windows.Forms.Button  
    15.   
  
  
  15. Me.List.Add(btnItem)  
    16.   
  
  
  16. ParentForm.Controls.Add(btnItem)@#向窗體中增加控件  
    17.   
  
  
  17. btnItem.Tag = Me.Count@#Count屬性從CollectionBase 繼承  
    18.   
  
  
  18. btnItem.Top = Me.Count * 30  
    19.   
  
  
  19. btnItem.Left = 200 
    20.   
  
  
  20. btnItem.Text = "Button" & Me.Count.ToString  
    21.   
  
  
  21. AddHandler btnItem.Click, AddressOf btnItem_Click @#綁定事件處理程序  
    22.   
  
  
  22. End Sub  
    23.   
  
  
  23.  
    24.   
  
  
  24. Public Sub AddItem(ByVal btnItem As System.Windows.Forms.Button)  
    25.   
  
  
  25. Me.List.Add(btnItem)  
    26.   
  
  
  26. AddHandler btnItem.Click, AddressOf btnItem_Click @#綁定事件處理程序  
    27.   
  
  
  27. End Sub  
    28.   
  
  
  28.  
    29.   
  
  
  29. Public Sub RemoveItem()  
    30.   
  
  
  30. If Me.Count > 0 Then  
    31.   
  
  
  31. ParentForm.Controls.Remove(Me(Me.Count - 1))  
    32.   
  
  
  32. Me.List.RemoveAt(Me.Count - 1)  
    33.   
  
  
  33. End If  
    34.   
  
  
  34. End Sub  
    35.   
  
  
  35.  
    36.   
  
  
  36. Public Sub btnItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)  
    37.   
  
  
  37. @#在這里編寫控件數(shù)組對點擊事件的響應  
    38.   
  
  
  38. @#例如：  
    39.   
  
  
  39. MsgBox("點擊：" & sender.GetType().ToString & CType(CType(sender, Button).Tag, String))  
    40.   
  
  
  40. End Sub  
    41.   
  
  
  41. End Class 
    42.

分享名稱：敘述VB.NET創(chuàng)建控件數(shù)組
分享URL：http://www.5511xx.com/article/cdchesj.html