Public Class Form1
Private _clickEventHandler As [Delegate]
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'Za Form1_Click lze dosadit název libovolné metody
's odpovídající signaturou.
_clickEventHandler = [Delegate].CreateDelegate(GetType(EventHandler), Me, "Form1_Click")
AddHandler Me.Click, _clickEventHandler
End Sub
Private Sub Form1_Click(ByVal sender As Object, ByVal e As EventArgs)
MessageBox.Show("Klepnutí na Form1.")
End Sub
End Class
Ještě bych poznamenal, že při použití AddHandler není třeba vytvářet instanci delegáta, kompilátor ji rozpozná a vytvoří automaticky:
'Zdlouhavé:
AddHandler Button1.Click, New System.EventHandler(AddressOf ProcceduraKteraSeMaSpustit)
'Jednodušší:
AddHandler Button1.Click, AddressOf ProcceduraKteraSeMaSpustit
|