网站建设资讯

NEWS

网站建设资讯

VB.NET控件数组怎么用

小编给大家分享一下VB.NET控件数组怎么用,相信大部分人都还不怎么了解,因此分享这篇文章给大家参考一下,希望大家阅读完这篇文章后大有收获,下面让我们一起去了解一下吧!

在莱西等地区,都构建了全面的区域性战略布局,加强发展的系统性、市场前瞻性、产品创新能力,以专注、极致的服务理念,为客户提供网站制作、网站建设 网站设计制作定制开发,公司网站建设,企业网站建设,成都品牌网站建设,营销型网站,成都外贸网站制作,莱西网站建设费用合理。

VB.NET的功能非常强大,可以实现代码的托管,以及强化代码架构,为程序员带来一个安全性较强的开发环境。我们在这里首先创建一个Button类型的VB.NET控件数组,来解释一下相关知识点。

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控件数组怎么用”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注创新互联行业资讯频道!


网站题目:VB.NET控件数组怎么用
新闻来源:http://cdweb.net/article/gshdgo.html