Question

vb.NET 请问一个关于如何共享事件的问题拜托了各位 谢谢

有可能我的标题说的不是很明白 下面是我想要实现的内容 Private Sub TextBox1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.MouseHover, If Not TextBox1.BorderStyle = BorderStyle.Fixed3D And TextBox1.ReadOnly = True Then TextBox1.BorderStyle = BorderStyle.Fixed3D TextBox1.ReadOnly = True End If End Sub Private Sub TextBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.MouseLeave If TextBox1.ReadOnly = True Then TextBox1.BorderStyle = BorderStyle.None End If End Sub 我想让多个 textbox都实现这样的效果 请问有没有不用每个都写一遍的方法呢。 谢谢了

Answer 1

两种方法 一: Private Sub Button1_Click(...) Handles Button1.Click, Button2.Click '当然你的应该改成TextBox1_MouseLeave(.......) Handles TextBox1.MouseLeave,TextBox2.MouseLeave ...... End Sub 二: AddHandler语句,一般写在Form_load中 AddHandler Button1.Click, AddressOf Button1_Click AddHandler Button2.Click, AddressOf Button1_Click 格式: AddHandler 对象.事件名,AddressOf 过程名