Mega Code Archive
AddressOf operator
<![CDATA[
Module Module1
Delegate Sub GreetingMethod()
Dim Greeting As New GreetingMethod(AddressOf MorningEnglish)
Sub MorningEnglish()
Console.WriteLine("Good morning")
End Sub
Sub AfternoonEnglish()
Console.WriteLine("Good afternoon")
End Sub
Sub EveningEnglish()
Console.WriteLine("Good evening")
End Sub
Sub MorningSpanish()
Console.WriteLine("Buenas dias")
End Sub
Sub AfternoonSpanish()
Console.WriteLine("Buenos tardes")
End Sub
Sub EveningSpanish()
Console.WriteLine("Buenos noches")
End Sub
Sub Main()
Greeting = AddressOf MorningEnglish
Greeting = AddressOf AfternoonEnglish
Greeting = AddressOf EveningEnglish
Greeting = AddressOf MorningSpanish
Greeting = AddressOf AfternoonSpanish
Greeting = AddressOf EveningSpanish
Greeting.Invoke()
End Sub
End Module
Buenos noches
]]>