Question

如何使用vb.net中的for next语句给多个文本框赋值！！？

Answer 1

Dim obj As Object, objName As String, i As Integer
i = 0
For Each obj In Me.Controls '枚举窗体所有控件
Debug.Print TypeName(obj)
If TypeName(obj) = "TextBox" Then '判读是否为文本框
i = i + 1
objName = obj.Name '获取文本控件名称,这里可以根据名称来判读赋值，也可以根据其他属性复制
obj.Text = "文本" & i '文本框赋值
End If
Next

Answer 2

TextBox1.Text="xxxxx"&vbNewLine&NewString(Chr(32),5)&"xxxxx"