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

控件:几个文本框textbox

事件:TextBoxes_textchanged

代码:

1. PrivateSubTextBoxes_TextChanged(ByValsenderAsSystem.Object,_
2. ByValeAsSystem.EventArgs)HandlesTextBox1.TextChanged,_
3. TextBox2.TextChanged,TextBox3.TextChanged
4. SelectCaseDirectCast(sender,TextBox).Name
5. CaseTextBox1.Name
6. MsgBox("ThetextinthefirstTextBoxhaschanged")
7. CaseTextBox2.Name
8. MsgBox("ThetextinthesecondTextBoxhaschanged")
9. CaseTextBox3.Name
10. MsgBox("ThetextinthethirdTextBoxhaschanged")
11. EndSelect
12. EndSub