Addhandler addressof 不错的列子

Addhandler   [Event],addressof   [Sub   or   Function]  

 
  比如你有个button   id：btnDemo  
  添加事件：  
  Addhandler   btnDemo.Click   addressof   btnclick  
   
  sub   btnclick()  
    ..........  
  end   sub

 

 

'改了一个更好的例子

Public Class Form4
    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Label1.Text = "没变"
    End Sub
    Function buttonchick()
        Me.Label1.Text = "改变了"
        Return Nothing
    End Function
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        AddHandler Button1.Click, AddressOf buttonchick
        buttonchick()
    End Sub
End Class