Σημείωση
Η πρόσβαση σε αυτή τη σελίδα απαιτεί εξουσιοδότηση. Μπορείτε να δοκιμάσετε να συνδεθείτε ή να αλλάξετε καταλόγους.
Η πρόσβαση σε αυτή τη σελίδα απαιτεί εξουσιοδότηση. Μπορείτε να δοκιμάσετε να αλλάξετε καταλόγους.
This example shows how to associate a method with a delegate and then invoke that method through the delegate.
Create the delegate and matching procedures
Create a delegate named
MySubDelegate.Delegate Sub MySubDelegate(ByVal x As Integer)Declare a class that contains a method with the same signature as the delegate.
Class class1 Sub Sub1(ByVal x As Integer) MsgBox("The value of x is: " & CStr(x)) End Sub End ClassDefine a method that creates an instance of the delegate and invokes the method associated with the delegate by calling the built-in
Invokemethod.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