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

1. VB.Net
2. Language Basics
3. Delegate

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("Hello")


        aDelegate = AddressOf test.TestMsgBox

        aDelegate("Hello")


    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 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.	Sort Delegate
7.	Function Delegation Demo
8.	Function Delegate: output string
9.	Delegate Demo for a Simple Class
10.	Delegate Syntax