成人免费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動態代碼

2009-10-14 10:25:52

VB.NET讀寫文本文

2010-01-18 13:12:43

VB.NET控件數組

2009-10-16 10:47:58

VB.NET創建控件數

2010-01-12 15:54:47

VB.NET動態控件數

2009-10-27 14:50:25

VB.NET控件數組

2009-10-26 14:25:09

VB.NET控件數組

2009-10-10 13:52:57

VB Update方法

2009-12-07 15:37:00

WCF控件

2010-01-06 13:50:37

.NET Framew

2009-10-16 14:31:48

VB.NET Noti

2009-10-14 11:27:20

VB.NET Grou

2009-10-10 16:44:52

VB.NET開發控件

2009-10-12 15:02:51

VB.NET動態控件

2010-01-19 12:53:59

VB.NET Text

2009-09-08 15:56:50

Linq使用Group

2010-01-07 17:10:01

VB.NET控件數組問

2009-10-22 13:09:19

VB.NET動態控件數
點贊
收藏

51CTO技術棧公眾號

主站蜘蛛池模板: 亚洲入口 | 一级在线观看 | 欧美日日 | 日屁网站 | 最新中文字幕在线播放 | 中文字幕第一页在线 | 奇米影视在线 | 中文一区二区 | 亚洲一区二区在线 | 欧美成人综合 | 天天操夜夜操 | 美女一级黄 | 欧美亚洲激情 | 亚洲国产成人精品久久久国产成人一区 | 久久黄色精品视频 | 日韩成人在线电影 | 亚洲国产成人在线 | www日本高清 | 91精品国产综合久久久久 | 精品久久电影 | 伊人春色成人 | 午夜手机在线视频 | 第一区在线观看免费国语入口 | 国产成人精品免费 | 国产精品1区2区 | 一本一道久久a久久精品蜜桃 | 麻豆av免费观看 | 偷拍自拍在线观看 | 国产成人午夜电影网 | 精产国产伦理一二三区 | 四虎影院在线观看av | 欧美韩一区二区三区 | 国产精品一区2区 | 亚洲色图综合网 | 四虎影院免费在线播放 | 中文字幕一区二区三区不卡 | 成人在线观看亚洲 | 亚洲视频二区 | 97精品一区二区 | 欧美日韩在线播放 | 日日夜夜精品免费视频 |