VB.NET 控件数组相关

最新推荐文章于 2014-09-18 17:28:05 发布

原创最新推荐文章于 2014-09-18 17:28:05 发布 · 545 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vb.net #integer #textbox #class

本文介绍了一种在Windows Forms应用程序中使用文本框数组的方法，包括如何创建文本框数组、如何向数组中添加文本框以及如何获取特定文本框的值。通过具体的代码示例展示了文本框数组的初始化过程及取值操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

本例以文本框为类加以说明

'调用方法

Private Sub form_txtArray()

Dim iLoop As Integer

        For iLoop = 0 To 5
            Dim txtBox As New Windows.Forms.TextBox
            txtBox.Location = New System.Drawing.Point(iLoop * 20 + 5, 20)
            txtBox.Top = 0
            txtBox.Size = New System.Drawing.Size(20, 10)
            txtArray.addItem(txtBox)
        Next
    End Sub

========================================================

'取值方法

TextBox1.Text = txtArray.item(2).Text()

=========================================================

'类定义

Imports System
Public Class TextBoxArray
    Inherits Collections.CollectionBase
    Private ReadOnly parentForm As Windows.Forms.Form
    Public Sub New(ByVal pForm As Windows.Forms.Form)
        parentForm = pForm
    End Sub
    Default Public ReadOnly Property item(ByVal index As Integer) As Windows.Forms.TextBox
        Get
            Return Me.List.Item(index)
        End Get
    End Property
    Public Sub addItem()
        Dim txtItem As New Windows.Forms.TextBox
        Me.List.Add(txtItem)
        parentForm.Controls.Add(txtItem)
        txtItem.Text = ""
    End Sub
    Public Sub addItem(ByVal txtItem As Windows.Forms.TextBox)
        Me.List.Add(txtItem)
        parentForm.Controls.Add(txtItem)
    End Sub
    Public Sub RemoveItem()
        If Me.Count > 0 Then
            parentForm.Controls.Remove(Me(Me.Count - 1))
            Me.List.RemoveAt(Me.Count - 1)
        End If
    End Sub

End Class