Nota
L'accesso a questa pagina richiede l'autorizzazione. È possibile provare ad accedere o modificare le directory.
L'accesso a questa pagina richiede l'autorizzazione. È possibile provare a modificare le directory.
In questo esempio viene illustrato come associare un metodo a un delegato e quindi richiamare tale metodo tramite il delegato .
Creare il delegato e le procedure di corrispondenza
Creare un delegato denominato
MySubDelegate
.Delegate Sub MySubDelegate(ByVal x As Integer)
Dichiarare una classe che contiene un metodo con la stessa firma del delegato.
Class class1 Sub Sub1(ByVal x As Integer) MsgBox("The value of x is: " & CStr(x)) End Sub End Class
Definire un metodo che crea un'istanza del delegato e richiama il metodo associato al delegato chiamando il metodo predefinito
Invoke
.Protected Sub DelegateTest() Dim c1 As New class1 ' Create an instance of the delegate. Dim msd As MySubDelegate = AddressOf c1.Sub1 ' Call the method. msd.Invoke(10) End Sub