读书人

vb.net中控件的有关问题

发布时间: 2012-02-21 16:26:23 作者: rapoo

vb.net中控件的问题
Private Const st As String = "text "
Private oSt As TextBox
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Short
For i = 0 To 1
oSt = CType(st & i + 1, TextBox)
oSt.Text = "1 "
Next
End Sub
有没有办法实现这样的功能。请高手指教

[解决办法]
For Each ctrl As Control In Me.Controls
If ctrl.GetType.Name = "TextBox " Then
CType(ctrl, TextBox).Text = "Teee "
End If
Next

读书人网 >VB Dotnet

热点推荐