成人免费xxxxx在线视频软件_久久精品久久久_亚洲国产精品久久久_天天色天天色_亚洲人成一区_欧美一级欧美三级在线观看

VB.NET控件數組使用經驗詳細分析

開發 后端
VB.NET控件數組的創建方法可能對于初學者來說不是很好掌握。我們可以通過本文介紹的內容對此進行一個詳細的了解。

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

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

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

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

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

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

 

  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 
  1. Default Public ReadOnly Property Item
    (ByVal index As Integer) As System.
    Windows.Forms.Button  
  2. Get  
  3. Return Me.List.Item(index) 
    ' ButtonArray的List 屬性從
    CollectionBase 繼承  
  4. End Get  
  5. End Property 
  1. Public Sub AddItem()  
  2. Dim btnItem As New System.
    Windows.Forms.Button  
  3. Me.List.Add(btnItem)  
  4. ParentForm.Controls.Add
    (btnItem) '向窗體中增加控件  
  5. btnItem.Tag = Me.Count 
    'Count屬性從CollectionBase 繼承  
  6. btnItem.Top = Me.Count * 30  
  7. btnItem.Left = 200 
  8. btnItem.Text = "Button" 
    & Me.Count.ToString  
  9. AddHandler btnItem.Click, 
    AddressOf btnItem_Click 
    '綁定事件處理程序  
  10. End Sub 
  1. Public Sub AddItem(ByVal btnItem 
    As System.Windows.Forms.Button)  
  2. Me.List.Add(btnItem)  
  3. AddHandler btnItem.Click, 
    AddressOf btnItem_Click 
    '綁定事件處理程序  
  4. End Sub  
  5. Public Sub RemoveItem()  
  6. If Me.Count > 0 Then  
  7. ParentForm.Controls.Remove
    (Me(Me.Count - 1))  
  8. Me.List.RemoveAt(Me.Count - 1)  
  9. End If  
  10. End Sub 
  1. Public Sub btnItem_Click
    (ByVal sender As Object, 
    ByVal e As System.EventArgs)  
  2. '在這里編寫控件數組對點擊事件的響應  
  3. '例如:  
  4. MsgBox("點擊:" & sender.GetType().
    ToString & CType(CType(sender, 
    Button).Tag, String))  
  5. End Sub  
  6. End Class 

 

VB.NET控件數組的創建方法就為大家介紹到這里。

責任編輯:曹凱 來源: 博客園
相關推薦

2009-10-28 10:06:29

VB.NET With

2009-10-10 15:19:43

VB.NET Web

2009-10-12 15:41:09

VB.NET動態代碼

2010-01-18 13:12:43

VB.NET控件數組

2009-10-14 10:25:52

VB.NET讀寫文本文

2010-01-12 15:54:47

VB.NET動態控件數

2009-10-16 10:47:58

VB.NET創建控件數

2009-10-26 14:25:09

VB.NET控件數組

2009-10-27 14:50:25

VB.NET控件數組

2009-10-10 13:52:57

VB Update方法

2009-12-07 15:37:00

WCF控件

2009-10-14 11:27:20

VB.NET Grou

2009-10-16 14:31:48

VB.NET Noti

2010-01-06 13:50:37

.NET Framew

2009-10-12 15:02:51

VB.NET動態控件

2010-01-19 12:53:59

VB.NET Text

2009-10-10 16:44:52

VB.NET開發控件

2009-10-22 13:09:19

VB.NET動態控件數

2010-01-07 17:10:01

VB.NET控件數組問

2009-10-15 17:57:33

VB.NET List
點贊
收藏

51CTO技術棧公眾號

主站蜘蛛池模板: 中文字幕亚洲一区二区三区 | 国产精品综合一区二区 | 青青草亚洲 | 视频在线一区 | 国产免费一区 | 免费二区| 网站一区二区三区 | 精品国产91乱码一区二区三区 | 午夜成人在线视频 | 午夜电影网 | 国产精品免费一区二区三区四区 | 成人在线免费视频 | 天堂色网 | 欧美三级在线 | 亚洲福利| 四色成人av永久网址 | 一级欧美一级日韩片 | 91精品国产一区二区 | 亚洲精品一区中文字幕 | 午夜色婷婷 | 国产欧美日韩一区二区三区 | 亚洲欧美日韩中文字幕一区二区三区 | 亚洲黄色一级 | a级大片免费观看 | 黄色在线观看网址 | 国产精品二区三区 | 一区二区三区在线免费看 | 久久久女 | 国内精品久久久久久 | 手机av在线 | 免费能直接在线观看黄的视频 | 99精品网 | 一区二区中文 | 亚洲三级视频 | 国产精品久久久亚洲 | 欧美成年视频 | 亚洲精品中文字幕在线观看 | 久久精品中文字幕 | 成人毛片视频免费 | 日韩精品| 精品一区二区在线观看 |