rtipton
3/20/2010 - 3:11 AM

C#/VBNet -- Simple Delegate

C#/VBNet -- Simple Delegate

Imports System
Namespace DelegateTest
    Public Delegate Sub TestDelegate(ByVal message As String)

    Class Program
        Public Shared Sub Display(ByVal message As String)
            Console.WriteLine("")
            Console.WriteLine("The string entered is : " + message)
        End Sub

        Shared Sub Main(ByVal args As String())
            '-- Instantiate the delegate
            Dim t As New TestDelegate(AddressOf Display)

            '-- Input some text
            Console.WriteLine("Please enter a string:")
            Dim message As String = Console.ReadLine()

            '-- Invoke the delegate
            t(message)
            Console.ReadLine()
        End Sub
    End Class
End Namespace
using System;
namespace DelegateTest
{
    public delegate void TestDelegate(string message);

    class Program
    {
        public static void Display(string message)
        {
            Console.WriteLine("");
            Console.WriteLine("The string entered is : " + message);
        }

        static void Main(string[] args)
        {
            //-- Instantiate the delegate
            TestDelegate t = new TestDelegate(Display);

            //-- Input some text
            Console.WriteLine("Please enter a string:");
            string message = Console.ReadLine();

            //-- Invoke the delegate
            t(message);
            Console.ReadLine();
        }
    }
}