Question

我编写了一个for循环，用于在运行应用程序时生成几个新文本框和numericUpDowns。

使用二维数组生成文本框/ numericUpDowns。

我的问题是：如何修改文本框/ numericUpDowns？

如果你想要代码，只需要它，我就会在这里添加。

谢谢！

Answer 1

这是我为类似的东西写的东西。它创建了一个按钮网格，并演示了如何处理事件。

Dim IsCreated(99) As Boolean
Dim Buttons As New Dictionary(Of String, Button)

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        For i As Integer = 0 To 99
            Dim B As New Button
            Me.Controls.Add(B)
            B.Height = 30
            B.Width = 40
            B.Left = (i Mod 10) * 41
            B.Top = (i \ 10) * 31
            B.Text = Chr((i \ 10) + Asc("A")) & i Mod 10 + 1
            Buttons.Add(B.Text, B)
            B.Tag = i
            AddHandler B.Click, AddressOf Button_Click
        Next


    End Sub

    Private Sub Button_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim B As Button = sender
        IsCreated(B.Tag) = True
        B.BackColor = Color.Red
    End Sub

Visual Basic - 修改代码中生成的文本框和对象

1 个答案: