Function Delegate: output string

 
Imports System

Public Class MainClass
    ' delegate to be a pointer to a subroutine
    ' that has a string parameter.
    Private Delegate Sub StringDisplayerType(ByVal str As String)

    Shared Sub Main(ByVal args As String())
        Dim m_DisplayStringRoutine As StringDisplayerType

        ' Assign the variable to a subroutine.
        m_DisplayStringRoutine = AddressOf ShowStringInMessageBox 

        ' Invoke the delegate's subroutine.
        m_DisplayStringRoutine("Hello world")
        
        m_DisplayStringRoutine = AddressOf ShowStringInOutputWindow

        ' Invoke the delegate's subroutine.
        m_DisplayStringRoutine("Hello world")
        

    End Sub

    Shared Private Sub ShowStringInOutputWindow(ByVal str As String)
        Console.WriteLine(str)
    End Sub

    Shared Private Sub ShowStringInMessageBox(ByVal str As String)
        Console.WriteLine(str)
    End Sub

End Class

Related examples in the same category

1.	Delegate with and without parameters
2.	Two ways to init a Delegate
3.	Multicast Delegate
4.	Use Delegate to implement custome sort
5.	Register Delegates and call them
6.	Simple Delegate Demo
7.	Sort Delegate
8.	Function Delegation Demo
9.	Delegate Demo for a Simple Class
10.	Delegate Syntax

Function Delegate: output string : Delegate « Language Basics « VB.Net

Related examples in the same category