我想让一组textbox（几十个）响应一个事件，要根据它们的编号处理略微不同的问题，怎么把它们弄成一个数组？

[seesky007]

我想让一组textbox（几十个）响应一个事件，要根据它们的编号处理略微不同的问题

其中要取其值，还要对其赋值，一个一个弄太麻烦

是不是把它们弄成一个数组，具体怎么操作？

下面只是我把程序简化成的一个例子（vb6.0的）：

有text1（0）、text1（1）、text1（2）、text1（3） 4个控件和一个label1控件，4个text控件是一个数组

Private Sub Form_Load()
For i = 0 To 3
Text1(i).Text = i
Next
End Sub

Private Sub Text1_Change(Index As Integer)
Label1.Caption = Text1(Index).Text
End Sub

要实现这些功能在vb.net里应该怎么操作？？

[Lost_Love_Anymore]

设TextBox的Tag属性。如1~N

Dim myControls As System.Windows.Forms.TextBox = Nothing

For Each myControls In Me.Controls
Select Case myControls.Tag

Case 1
'TODO
Case 2
'TODO
Case 3
'TODO
Case 4
'TODO
……
End Select
Next

[全国话费充值]

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged,TextBox2.TextChanged,TextBox3.TextChanged,TextBox4.TextChanged
dim My_TextBox as TextBox =CType(sender, TextBox)
select My_TextBox.Name
Case "TextBox1"
My_TextBox.Text="这是一"
Case "TextBox2"
My_TextBox.Text="这是二"
Case "TextBox3"
My_TextBox.Text="这是三"
Case "TextBox4"
My_TextBox.Text="这是四"
end select
end sub

[jupiter911]

把所有TextBox放到一个Panle中,然后通过遍历,将其放入一个集合中.最后你可以通过这个集合所带的索引器来访问它们

[seesky007]

把所有TextBox放到一个Panle中,然后通过遍历,将其放入一个集合中.最后你可以通过这个集合所带的索引器来访问它们

这具体怎么操作,能给出程序吗?谢谢！

[seesky007]

谢谢上面两位高人的解答，但按照这样写成我需要的程序还是比较复杂

我把我的要求写成一个简单的例子（vb6.0的）

有
text1（0）、text1（1）、text1（2）、text1（3）
text2（0）、text2（1）、text2（2）、text2（3）
text3（0）、text3（1）、text3（2）、text3（3）
text4（0）、text4（1）、text4（2）、text4（3）
分别为4个控件数组

Private Sub text5_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then '如果按下回车键
Text4(Index).Text=Text1(Index).Text+Text2(Index).Text+Text3(Index).Text+Text4(Index).Text
End if
End Sub

麻烦问一下这些语句在vb.net里应该写成什么？是不是还需要别的什么设置？能翻译一下么？

能不能把这4个控件数组弄成公共的数组，在每个过程里都可以方便的取值和赋值以及响应事件？（不知道我的想法对不对啊，呵呵~~）

[zy227]

Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i = 0 To 3
Text1(i).Text = i
Next
addhandler Text1_KeyPress , addressof Text1.KeyPress
End Sub

Private Sub Text1_KeyPress(Index As Integer)
Label1.Text = Text1(Index).Text
End Sub

[seesky007]

text1不需要定义吗？怎么定义？

[seesky007]

回 HimeTale ：

我不需要动态生成数组，“直接把画面的控件按顺序add到arraylist里就行”，具体应该怎么做？我现在转到vb.net后简直是一头雾水，什么都看不懂了。谢谢！

回jupiter911 ：

能把你的方法具体的写一下吗？谢谢！



我想要多组控件（我现在用的是5组，每组20个）分别相应多个事件（每组分别相应4的事件），每个事件都要重新定义数组是不是太麻烦了（比如3、5楼），有更好的方法吗？就像在vb6.0里一样？

先谢谢各位了！！！

[seesky007]

有没有人知道的回答一下啊？？很急很急~~~~~谢谢大家

[dhsclp]

在Vb.Net中已经不支持控件数组了
1、可以共用事件程序
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged,TextBox2.TextChanged
Label1.Text = sender.Text
End Sub
2、循环处理控件
把所有要处理的TextBox放入同一个Panel1中
For Each tCtl as Control in Panel1.Controls
if TypeOf tCtl Is TextBox then
'---写入具体的操作代码
end if
Next

[mainbaby]

Private Sub common_MouseEnter(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.MouseEnter, TextBox2.MouseEnter
'用户的第一需求：显示ToolTip
Dim fullName As String = sender.ToString()
Dim currentControl As Control = CType(sender, Control)
ToolTip1.SetToolTip(currentControl, fullName)
'用户的第二需求：随机颜色
Dim backColors As Color() = New Color() {Color.CornflowerBlue, Color.Pink, Color.Orange}
Dim r As New Random
Dim i As Integer = r.[Next](0, 3)
currentControl.BackColor = backColors(i)
'用户的第N需求：……
End Sub

[seesky007]

是winfrom的，可以把

Private Sub text5_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then '如果按下回车键
Text4(Index).Text=Text1(Index).Text+Text2(Index).Text+Text3(Index).Text+Text4(Index).Text
End if
End Sub

详细的翻译一下么？万分感谢啊！！

这样的话我在头脑里就有了一个大概的概念，要不真是不知道是从哪下手啊~~~~

[HimeTale]

        Dim arraytext(3) As Windows.Forms.TextBox
        arraytext(0) = Me.TextBox1
        arraytext(1) = Me.TextBox2
        arraytext(2) = Me.TextBox3
        For intI As Integer = 0 To 2
            arraytext(intI).Text = intI + 1
        Next

我服了....TextBox1,TextBox2,TextBox3分别对应画面上的3个textbox

[HimeTale]

如果是label,就Dim arraylabel(3) As Windows.Forms.Label

除非是动态生成，不然画面上的text只能一个一个的加到数组(arraytext)里。然后操作数组arraytext就可以了。

[dhsclp]

楼主不要怕麻烦，VB.Net中已经不支持控件数组了.....

[踏平扶桑]

是winfrom还是web的？
你用for each …… in 可以实现你需要的功能

[seesky007]

非常感谢！！

那可以接受事件吗？是不是接受事件只能用10楼的方法？

[HimeTale]

事件的话，如果你理解委托机制

循环添加句柄
For intI As Integer = 0 To 2
AddHandler arraytext(intI).TextChanged, AddressOf subtextChanged
NextChanged

委托的函数：
Private Sub subtextChanged(ByVal sender As Object, ByVal e As System.EventArgs)
//写事件执行的函数，比如：
Me.Label1.Text = sender.Text
End Sub

[a523194491]

Dim Text1(3) As TextBox
Dim Text2(3) As TextBox
Dim Text3(3) As TextBox
Dim Text4(3) As TextBox

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i As Integer = 0 To 3
Text1(i) = New TextBox
Text1(i).Width = 80
Text1(i).Left = i * 100 + 20
AddHandler Text1(i).TextChanged, AddressOf Text1_TextChanged
Me.Controls.Add(Text1(i))

Text2(i) = New TextBox
Text2(i).Top = 60
Text2(i).Width = 80
Text2(i).Left = i * 100 + 20
AddHandler Text2(i).TextChanged, AddressOf Text2_TextChanged
Me.Controls.Add(Text2(i))

Text3(i) = New TextBox
Text3(i).Top = 120
Text3(i).Width = 80
Text3(i).Left = i * 100 + 20
AddHandler Text3(i).TextChanged, AddressOf Text3_TextChanged
Me.Controls.Add(Text3(i))

Text4(i) = New TextBox
Text4(i).Top = 120
Text4(i).Width = 80
Text4(i).Left = i * 100 + 20
AddHandler Text4(i).TextChanged, AddressOf Text4_TextChanged
Me.Controls.Add(Text4(i))
Next
End Sub

Private Sub Text1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Text2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Text3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Text4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

[seesky007]

谢谢，我终于明白了

真的很感谢大家