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

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

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷解決方案
VB.NET控件數(shù)組使用經(jīng)驗(yàn)詳細(xì)分析

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

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

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

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

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

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

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

 

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


文章題目：VB.NET控件數(shù)組使用經(jīng)驗(yàn)詳細(xì)分析
標(biāo)題鏈接：http://www.5511xx.com/article/dpsepgd.html