Function Delegation Demo : Delegate « Language Basics « VB.Net

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

Function Delegation Demo

 
Imports System

Public Class MainClass
    Dim emp As New Employee("First Name", "Last Name")

    Private Delegate Function NumEmployeesDelegate() As Integer

    Shared Sub Main(ByVal args As String())
        Dim show_num As NumEmployeesDelegate
        show_num = AddressOf Employee.GetNumEmployees
        
        Console.WriteLine(show_num().ToString)

    End Sub

End Class




Public Class Employee

    Private m_FirstName As String
    Private m_LastName As String

    Private Shared m_NumEmployees As Integer = 0

    Public Shared Function GetNumEmployees() As Integer
        Return m_NumEmployees
    End Function

    Public Sub New(ByVal first_name As String, ByVal last_name As String)
        m_FirstName = first_name
        m_LastName = last_name
        m_NumEmployees += 1
    End Sub

    Public Overrides Function ToString() As String
        Return m_FirstName & " " & m_LastName
    End Function

    Private disposedValue As Boolean = False        ' To detect redundant calls

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