Nota
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Este ejemplo muestra cómo asociar un método a un delegado y después invocar ese método a través del delegado.
Creación del delegado y procedimientos coincidentes
Cree un delegado denominado
MySubDelegate
.Delegate Sub MySubDelegate(ByVal x As Integer)
Declare una clase que contenga un método con la misma firma que el delegado.
Class class1 Sub Sub1(ByVal x As Integer) MsgBox("The value of x is: " & CStr(x)) End Sub End Class
Defina un método que cree una instancia del delegado e invoque el método asociado al delegado llamando al método
Invoke
integrado.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