Revision: 14516
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at June 5, 2009 21:42 by rtipton
Initial Code
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
Initial URL
Initial Description
Initial Title
Simple Delegate Example
Initial Tags
Initial Language
VB.NET