Simple Delegate Demo : Delegate « Language Basics « VB.Net

Simple Delegate Demo

Simple Delegate Demo
Imports System

Public Class MainClass
    Public Delegate Sub StringSubDelegate(ByVal aString As String)
    Shared Sub Main()

        Dim test As New ClassForStringSubDelegate()
        Dim aDelegate As StringSubDelegate

        aDelegate = AddressOf test.TestSub


        aDelegate = AddressOf test.TestMsgBox


    End Sub
End Class

Public Class ClassForStringSubDelegate

    Public Sub TestSub(ByVal aString As String)
        Console.WriteLine(aString & aString)
    End Sub

    Public Sub TestMsgBox(ByVal aString As String)
        Console.WriteLine("I am in a Message Box" & aString)
    End Sub
End Class


Related examples in the same category

1.Delegate with and without parametersDelegate with and without parameters
2.Two ways to init a DelegateTwo ways to init a Delegate
3.Multicast DelegateMulticast Delegate
4.Use Delegate to implement custome sortUse Delegate to implement custome sort
5.Register Delegates and call themRegister Delegates and call them
6.Sort DelegateSort Delegate
7.Function Delegation DemoFunction Delegation Demo
8.Function Delegate: output stringFunction Delegate: output string
9.Delegate Demo for a Simple ClassDelegate Demo for a Simple Class
10.Delegate Syntax