VB.NET在窗体上添加任意动态控件

当前位置:

首页 > VB.net教程 >

VB.NET在窗体上添加任意动态控件

Public Class textboxarray
    Inherits System.Collections.CollectionBase
    Private ReadOnly HostForm As System.Windows.Forms.Form
    Public Function Addtextbox() As System.Windows.Forms.TextBox
        '为textbox类建立新的实例
        Dim atextbox As New System.Windows.Forms.TextBox
        ' 将该按钮添加到集合的内部列表
        Me.List.Add(atextbox)
        '把控件集合中的按钮添加到被HostForm字段引用的窗体
        HostForm.Controls.Add(atextbox)
        ' 设置该按钮对象的初始属性
        atextbox.Top = Count * 25
        atextbox.Left = 150
        atextbox.Tag = Me.Count
        atextbox.Text = "" 'Me.Count.ToString
        AddHandler atextbox.Click, AddressOf ClickHandler
        Return atextbox
    End Function
    Public Sub New(ByVal host As System.Windows.Forms.Form)
        HostForm = host
        Me.Addtextbox()
    End Sub
    Default Public ReadOnly Property Item(ByVal Index As Integer) As _
      System.Windows.Forms.TextBox
        Get
            Return CType(Me.List.Item(Index), System.Windows.Forms.TextBox)
        End Get
    End Property
    Public Sub Remove()
        ' 检查以确保有按钮可以删除
        If Me.Count >= 1 Then
            ' 从主窗体上的控件集合的数组按钮数组中删除最后一个
            ' 注意在访问数组时使用了默认属性
            HostForm.Controls.Remove(Me(Me.Count - 1))
            Me.List.RemoveAt(Me.Count - 1)
        End If
    End Sub
    Public Sub ClickHandler(ByVal sender As Object, ByVal e As _
   System.EventArgs)
        'MessageBox.Show("you have clicked textbox " & CType(CType(sender, _
        'System.Windows.Forms.textbox).Tag, String))
    End Sub
End Class

栏目列表