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

控件:几个文本框textbox

事件:TextBoxes_textchanged

代码:

 

1. Private Sub TextBoxes_TextChanged(ByVal sender As System.Object, _
2.     ByVal e As System.EventArgs) Handles TextBox1.TextChanged, _
3.     TextBox2.TextChanged, TextBox3.TextChanged
4.         Select Case DirectCast(sender, TextBox).Name
5.             Case TextBox1.Name
6.                 MsgBox("The text in the first TextBox has changed")
7.             Case TextBox2.Name
8.                 MsgBox("The text in the second TextBox has changed")
9.             Case TextBox3.Name
10.                 MsgBox("The text in the third TextBox has changed")
11.         End Select
12.     End Sub