Vs 2012(Basic)中,如何创建控件数组。(TextBox数组)

发布网友发布时间：2022-05-19 23:12

共2个回答

热心网友时间：2023-10-19 23:53

　　没有index属性了，VB.net的改变很大，1楼的答案就是最接近楼主的要求，我再补充一下完整的用法，比如每个textbox如何返回事件，这段代码直接复制到窗体代码中，可以调试运行。注意代码实际创建了21个文本框，VB.net现在也不支持数组下标自己定义起始值，如果只要20个，可以放弃第一个，保持1到20的下标，或者定义txt（19）

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim txt(20) As TextBox
    For i = 0 To 20

        txt(i) = New TextBox
        Me.Controls.Add(txt(i))   '把文本框添加到窗口上

        '设置文本框位置和可见性
        txt(i).Top = i * txt(0).Height
        txt(i).Left = 0
        txt(i).Visible = True

        txt(i).Name = i   '用name属性来标记每个对象
        AddHandler txt(i).TextChanged, AddressOf subName '绑定事件到特定过程

    Next

End Sub

Private Sub subName(sender As Object, e As EventArgs)
    If sender.name = "1" Then  '这里的sender就是发生事件的文本框，上面用name做标记，所以这里可以靠name来判断是哪个文本框发生事件，在第二个文本框输入就会引发
        MsgBox("事件发生了")
    End If
End Sub

热心网友时间：2023-10-19 23:53

Dim Str(20) As String '20个数据元素。
Dim Text(20) As TextBox
Dim n As Integer = 0
For Each i In Text
i = New TextBox '实例化
i.Location = New Point(50, n * 20)
Me.Controls.Add(i) '添加到窗体
Dim Index As Integer = i.TabIndex '没有index属性。
Str(n) = Index
i.Text = Str(n) '将str数组的值赋值给文本框
n += 1
Next

Vs 2012(Basic)中,如何创建 控件数组。(TextBox数组)

Vs 2012(Basic)中,如何创建控件数组。(TextBox数组)