Delegate Demo for a Simple Class

 
Imports System
Imports System.Diagnostics

Public Class MainClass

    Private Delegate Function NumEmployeesDelegate() As Integer

    Shared Sub Main()
        Dim emp As New Employee("Rod", "Stephens")
        Dim show_num As NumEmployeesDelegate
    
        show_num = AddressOf Employee.GetNumEmployees
        Console.WriteLine(show_num().ToString)


    End Sub
End Class


Public Class Employee
    ' In a real application, this would return 
    ' some sort of array or collection's size.
    Public Shared Function GetNumEmployees() As Integer
        Return 13
    End Function

    ' The Employee's first name.
    Private m_FirstName As String = "<first name>"
    Public Property FirstName() As String
        Get
            Return m_FirstName
        End Get
        Set(ByVal value As String)
            m_FirstName = value
        End Set
    End Property

    ' The Employee's last name.
    Private m_LastName As String = ""
    Public Property LastName() As String
        Get
            Return m_LastName
        End Get
        Set(ByVal value As String)
            m_LastName = value
        End Set
    End Property

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

    Public Overrides Function ToString() As String
        Return m_FirstName & " " & m_LastName
    End Function
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.	Function Delegate: output string
10.	Delegate Syntax

Delegate Demo for a Simple Class : Delegate « Language Basics « VB.Net

Related examples in the same category