vb.net 循环顺序获取文本框名并赋值的多种方法
时间: 2024-02-28 21:57:22 浏览: 24
以下是三种不同的方法:
1. 使用 For Each 循环遍历控件容器中的所有文本框,并在循环中使用控件的 Name 属性获取文本框的名称,并根据名称给文本框赋值。
```
For Each tb As TextBox In Me.Controls.OfType(Of TextBox)()
tb.Text = "Some Value"
Next
```
2. 使用 For 循环遍历控件容器中的所有控件,并使用 TypeOf 运算符检查是否为文本框,然后根据控件的名称给文本框赋值。
```
For i As Integer = 0 To Me.Controls.Count - 1
If TypeOf Me.Controls(i) Is TextBox Then
Me.Controls(i).Text = "Some Value"
End If
Next
```
3. 使用 LINQ 查询语句筛选出控件容器中的所有文本框,然后在循环中遍历筛选出的文本框并给它们赋值。
```
Dim textBoxes = From tb In Me.Controls.OfType(Of TextBox)() Select tb
For Each tb As TextBox In textBoxes
tb.Text = "Some Value"
Next
```
相关问题
vb.net 循环顺序获取文本框名排序并赋值的多种方法
以下是几种在 VB.NET 中循环顺序获取文本框名排序并赋值的方法:
1. 使用 For Each 循环遍历 Controls 集合,找到类型为 TextBox 的控件,并按名称排序:
```
Dim textBoxes = Me.Controls.OfType(Of TextBox)().OrderBy(Function(tb) tb.Name)
For Each tb In textBoxes
tb.Text = "Value"
Next
```
2. 使用 For 循环遍历 Controls 集合,找到类型为 TextBox 的控件,并按名称排序:
```
Dim textBoxes As New List(Of TextBox)
For Each c As Control In Me.Controls
If TypeOf c Is TextBox Then
textBoxes.Add(c)
End If
Next
textBoxes = textBoxes.OrderBy(Function(tb) tb.Name).ToList()
For i As Integer = 0 To textBoxes.Count - 1
textBoxes(i).Text = "Value"
Next
```
3. 使用 LINQ 查询语句从 Controls 集合中筛选出类型为 TextBox 的控件,并按名称排序:
```
Dim textBoxes = From c In Me.Controls
Where TypeOf c Is TextBox
Order By c.Name
Select CType(c, TextBox)
For Each tb In textBoxes
tb.Text = "Value"
Next
```
vb.net Control 类循环向窗体文本框控件名赋值
可以使用 `For Each` 循环遍历窗体上的控件,并判断其类型是否为文本框控件,然后进行赋值操作。代码示例如下:
```vb
For Each ctl As Control In Me.Controls
If TypeOf ctl Is TextBox Then
ctl.Text = "赋值内容"
End If
Next
```
其中 `Me.Controls` 表示当前窗体上的所有控件集合,`TypeOf` 判断控件是否为指定类型,`TextBox` 表示文本框控件类型。你可以将 `"赋值内容"` 替换为需要赋的值。