VB.NET中实现控件数组的功能

控件:几个文本框textbox

事件:TextBoxes_textchanged

代码:

 

Private Sub TextBoxes_TextChanged(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles
TextBox2.TextChanged, TextBox3.TextChanged
Select Case DirectCast(sender, TextBox).Name
Case
"The text in the first TextBox has changed")
Case
"The text in the second TextBox has changed")
Case
"The text in the third TextBox has changed")
End Select
End Sub