Register Delegates and call them : Delegate « Language Basics « VB.Net

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

Register Delegates and call them

 
Imports System

Public Class MainClass
    Public Delegate Sub CallBackFunc()
    Private Shared m_cbFunc As CallBackFunc

    Public Shared Sub Main()
        RegisterDelegate(AddressOf CallBackHandler1)
        RegisterDelegate(AddressOf CallBackHandler2)
        CallDelegates()
    End Sub

    Shared Public Sub CallBackHandler1()
        Console.WriteLine("Callback 1 returned ")
    End Sub

    Shared Public Sub CallBackHandler2()
        Console.WriteLine("Callback 2 returned ")
    End Sub

    Shared Public Sub RegisterDelegate(ByRef cbFunc As CallBackFunc)
        m_cbFunc = CType(System.Delegate.Combine(m_cbFunc, cbFunc), CallBackFunc)
    End Sub
  
    Shared Public Sub CallDelegates()
        m_cbFunc()
    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.	Simple Delegate Demo
6.	Sort Delegate
7.	Function Delegation Demo
8.	Function Delegate: output string
9.	Delegate Demo for a Simple Class
10.	Delegate Syntax