在vb.net中如何通过控件名取得控件对象

[yjtayum]

在窗体中有按钮Button1，Button1.Name="Button1",如何通过字符串"Button1"取得其对象

[qxzhu]

不知楼主是做什么用，既然有了button1名字，为何要用字符串来取对象呢？

[机器人]

Dim objButton As Button
For Each objButton In Me.Controls
If TypeOf objButton Is Button Then
'...
End If
Next

[机器人]

Dim objButton As Button
For Each objButton In Me.Controls
If TypeOf objButton Is Button Then
If objButton.Name = "Button1" Then
'TODO: ...
End If
End If
Next

[zhengjob]

Function FindObject() As Object
Dim objButton As Button

For Each objButton In Me.Controls

If TypeOf objButton Is Button Then
If objButton.Name = "Button1" Then
'TODO: ...
Return objButton
End If
End If

Next

Return Nothing
End Function

[yjtayum]

问题中的Button1应该为TextBox1更合适一些，是这样的，我这里有很多命名类似的TextBox,如TextBox1,TextBox2,TextBox3...,我想通过循环的方式为其Text赋值，在vb中就可以这样实现Me.Contorls("TextBox"&i).Text=i,但在.net中Controls方法不支持控件名啊，请大家帮帮忙啊，先谢了！

[hamadou]

使用一个控件数组就可以了。

[一杯清茶几行代码]

楼上的代码有个小问题

应该为
Dim objButton As Control '定义成具体类型是不能遍历的
For Each objButton In Me.Controls
If TypeOf objButton Is Button Then
If objButton.Name = "Button1" Then
'TODO: ...
End If
End If
Next

[qxzhu]

要实现也并不难可用controls集合一个个去比较
For i = 0 To Controls.Count
if Me.Controls(i).Text="button1" then
.........
endif

Next

[yjtayum]

TO 回复人： hamadou(闵峰) ( ) 信誉：127
控件数组好像只在vb中支持，在.net中不支持控件数组阿。

[AntingZ]

楼上兄弟的For eache 可行

关于数组，残酷FAQ：
http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=96197

[yjtayum]

TO 回复人： qxzhu(雨滴) ( ) 信誉：100 2005-06-24 09:45:00 得分: 0
你的代码应该这样改一下
For i = 0 To Controls.Count-1
if Me.Controls(i).Name="button1" then 'Text是可变的
.........
endif

Next

[yjtayum]

非常感谢大家，结帖

[flikas]

.net支持控件数组，你要自己写：
Dim boxes(10) As TextBox
Dim i As Integer
For i = 0 To 9
boxes(i) = New TextBox
Next
Me.Controls.AddRange(boxes)