Question

在Visual Basic 6.0上，您在表单上添加一个TextBox，其名称为TextBox1，之后我将TextBox复制/粘贴到表单上，然后再次TextBox1(0)粘贴TextBox1(1)
如何在Visual Basic 2012上做到这一点??? 我复制/粘贴文本框并获得了Textbox1 Textbox2？你明白这个问题吗？

我尝试复制粘贴TextBox1并获得TextBox2

我想要使用的代码是检查TextBoxes

之类的东西

Dim i as integer
For i=1 to 5
   textbox(i).text="Anel"
Next

Answer 1

您必须在表单上绘制五个文本框和一个按钮

（1）在班级声明Collection，

（2）在Form_Load事件中，将您的文本框添加到Collection

（3）您可以使用for循环访问所有文本框，如下面的代码所示

Dim AL As New Collection

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    AL.Add(TextBox1)
    AL.Add(TextBox2)
    AL.Add(TextBox3)
    AL.Add(TextBox4)
    AL.Add(TextBox5)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim i As Integer
    For i = 1 To AL.Count
        AL(i).Text = "Hello"
    Next
End Sub

Answer 2

首先创建要修改的文本框数量的列表，并以一种很好的方式命名这些文本框 ->示例： ----->我有三个文本框名称，如下所示：“ ttttaksa1”，“ asiuhi2”，“ EEFUGUYug3” ----->我们在文本框的末尾添加了一个数字，以便我们可以分别叫mofidy 根据其数量 ----->现在我们有3个文本框，我们将列出一个带有文本框编号的字符串列表：在这种情况下：3个数字（注意：列表是STRINGS！）列表将像这样：Dim n as New List（of string）=（{“ 1”，“ 2”，“ 3”}）如果我们有11个文本框，例如：

将n设为新列表（字符串）=（{“ 1”，“ 2”，“ 3”，“ 4”，“ 5”，“ 6”，“ 7”，“ 8”，“ 9” ，“ 10”，“ 11”}）

现在，如果您想例如更改两个前两个文本框（ttttaska1和asiuhi2）的文本，则需要这样做：

For Each textbox In Me.Controls

        For Each s As String In n

            If textbox.Name.ToString.EndsWith(n) Then
                'Do what you want to your textbox ex : textbox.text="Anel"
                 textbox.forecolor=Color.Blue
            End If

        Next
    Next

我希望这很有用，谢谢：D 我现在正在制作游戏并出售它们，想加入我的行列吗？脸书：Waterfull Idr 祝你好运：D

Answer 3

Dim textBoxTemp As TextBox
Dim stringData As String

For index = 0 To 23
    stringData = ("txtBoxReal" & index)
    textBoxTemp = CType(Me.Controls(stringData), TextBox)
    textBoxTemp.Text = 0
Next

如何在visual basic 2012中添加文本框（0）

3 个答案: