Anteckning
Åtkomst till den här sidan kräver auktorisering. Du kan prova att logga in eller ändra kataloger.
Åtkomst till den här sidan kräver auktorisering. Du kan prova att ändra kataloger.
Det här exemplet visar hur du associerar en metod med ett ombud och sedan anropar den metoden via ombudet.
Skapa ombuds- och matchningsprocedurerna
Skapa ett ombud med namnet
MySubDelegate.Delegate Sub MySubDelegate(ByVal x As Integer)Deklarera en klass som innehåller en metod med samma signatur som ombudet.
Class class1 Sub Sub1(ByVal x As Integer) MsgBox("The value of x is: " & CStr(x)) End Sub End ClassDefiniera en metod som skapar en instans av ombudet och anropar metoden som är associerad med ombudet genom att anropa den inbyggda
Invokemetoden.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