在VB.Net中创建使用控件数组

使用创建的控件数组

在Form1中放置两个按钮Button1、Button2，分别测试控件数组的增添、删除。

双击Form添加代码：

Public Class Form1

    Inherits System.Windows.Forms.Form

……Windows窗体设计器生成的代码……

    Dim Buttons As New ButtonArray(Me)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Buttons.AddItem()

    End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Buttons.RemoveItem()

    End Sub

End Class

其他的控件数组也可以用类似的方式来实现
例如 Label控件数组

LabelArray.vb代码如下：
Public Class LabelArray
    Inherits System.Collections.CollectionBase

    Private ReadOnly ParentForm As System.Windows.Forms.Form

    Public Sub New(ByVal pForm As System.Windows.Forms.Form)

        ParentForm = pForm

    End Sub

    Default Public ReadOnly Property Item(ByVal index As Integer) As System.Windows.Forms.Label

        Get

            Return Me.List.Item(index)   @# ButtonArray的List 属性从CollectionBase 继承

        End Get

    End Property

    Public Sub AddItem(ByVal btnItem As System.Windows.Forms.Label)

        Me.List.Add(btnItem)

        AddHandler btnItem.Click, AddressOf btnItem_Click @#绑定事件处理程序

    End Sub
   

    Public Sub btnItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)

        @#在这里编写控件数组对点击事件的响应

        @#例如：

        MsgBox("点击：" & sender.GetType().ToString & CType(CType(sender, Label).Tag, String))

    End Sub
End Class

上一页  [1] [2] [3] [4] 下一页

【责编:Youping】