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

Function Delegation Demo

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

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