vb.net Control 类循环把字符串TextBox1，TextBox2，TextBox3...赋值给文本框控件名

您可以使用 Controls 集合来循环遍历窗体上的所有控件，然后判断控件类型是否为 TextBox，如果是，则将字符串赋值给该文本框控件的 Text 属性。下面是一个示例代码：

For Each ctrl As Control In Me.Controls
    If TypeOf ctrl Is TextBox Then
        Dim txtBox As TextBox = DirectCast(ctrl, TextBox)
        Select Case txtBox.Name
            Case "TextBox1"
                txtBox.Text = "some text 1"
            Case "TextBox2"
                txtBox.Text = "some text 2"
            Case "TextBox3"
                txtBox.Text = "some text 3"
            ' add more cases as needed
        End Select
    End If
Next

这个代码假设您的文本框控件名分别为 TextBox1、TextBox2、TextBox3，您可以根据实际情况修改 Case 语句中的文本框控件名和要赋的值。

相关问题

vb.net Control 类 For...next循环把字符串TextBox1，TextBox2，TextBox3...赋值给文本框控件名

可以使用 `Controls.Find` 方法来找到对应的文本框控件，然后使用 `For...Next` 循环来赋值。

以下是示例代码：

For i As Integer = 1 To 3
    Dim textBoxName As String = "TextBox" & i.ToString()
    Dim textBox As TextBox = Me.Controls.Find(textBoxName, True).FirstOrDefault()

    If textBox IsNot Nothing Then
        textBox.Text = "赋值内容"
    End If
Next

上述代码中，`For` 循环从 1 到 3，根据文本框控件名逐一查找对应的控件，并将其赋值。需要注意的是，如果文本框控件名不存在，`Find` 方法会返回空数组，因此需要对其进行判断处理。

vb.net Control 类循环向窗体文本框控件赋值完全不同几个的字符串

你可以使用一个字符串数组，循环遍历数组并依次给每个文本框控件赋值。示例代码如下：

Dim texts() As String = {"Hello", "World", "VB.NET"}
For i As Integer = 0 To texts.Length - 1
    Dim textBoxName As String = "TextBox" & (i + 1)
    Dim textBox As TextBox = CType(Me.Controls.Find(textBoxName, True)(0), TextBox)
    textBox.Text = texts(i)
Next

上述代码中，我们创建了一个包含多个字符串的数组 `texts`，然后使用 for 循环遍历数组中的每个元素。在循环中，我们使用变量 i 来构造文本框控件的名称，例如第一个文本框控件的名称为 "TextBox1"，第二个为 "TextBox2"，以此类推。然后使用 `Me.Controls.Find` 方法查找窗体中名称为 `textBoxName` 的控件，然后将其转换为 `TextBox` 类型，并将当前遍历到的字符串赋值给该文本框控件的 `Text` 属性。