对于批量的对象就用循环好了,一个一个复制粘贴并不是很好的解决方案。首先写好事件处理函数。Private Sub TextBoxChanged(sender As Object, e As EventArgs)'一些代码End Sub下面是主函数Dim tests() As TextBox '数组或集合字段名称用复数Dim num As Integer = 80 '控件总个数ReDim tests(num)For i = 0 To tests.Count - 1Dim item As New TextBoxtest(i) = itemAddHandler item.TextChanged, Addres...