控件:几个文本框textbox
事件:TextBoxes_textchanged
代码:
- PrivateSubTextBoxes_TextChanged(ByValsenderAsSystem.Object,_
- ByValeAsSystem.EventArgs)HandlesTextBox1.TextChanged,_
- TextBox2.TextChanged,TextBox3.TextChanged
- SelectCaseDirectCast(sender,TextBox).Name
- CaseTextBox1.Name
- MsgBox("ThetextinthefirstTextBoxhaschanged")
- CaseTextBox2.Name
- MsgBox("ThetextinthesecondTextBoxhaschanged")
- CaseTextBox3.Name
- MsgBox("ThetextinthethirdTextBoxhaschanged")
- EndSelect
- EndSub