vb.net Control 类 For...next循环把字符串TextBox1,TextBox2,TextBox3...赋值给文本框控件名
时间: 2023-12-03 07:46:33 浏览: 99
可以使用 `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 类循环把字符串TextBox1,TextBox2,TextBox3...赋值给文本框控件名
您可以使用 Controls 集合来循环遍历窗体上的所有控件,然后判断控件类型是否为 TextBox,如果是,则将字符串赋值给该文本框控件的 Text 属性。下面是一个示例代码:
```vb.net
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 类循环向窗体文本框控件赋值不同的字符串
可以使用以下代码来循环向窗体文本框控件赋值不同的字符串:
```vb
For Each ctrl As Control In Me.Controls
If TypeOf ctrl Is TextBox Then
ctrl.Text = "Hello, world!"
End If
Next
```
这段代码会循环遍历窗体中的所有控件,如果当前控件是文本框控件,就将其文本值设置为"Hello, world!"。如果你要往不同的文本框赋值不同的字符串,可以在循环中根据控件的名称或其它属性来进行判断和赋值。
阅读全文