Mega Code Archive

 

Categories / VB.Net Tutorial / LINQ

 

Assign a lambda expression to an Action(Of (T)) delegate instance

Imports System.Windows.Forms Public Module TestLambdaExpression    Public Sub Main()       Dim messageTarget As Action(Of String)        If Environment.GetCommandLineArgs().Length > 1 Then          messageTarget = Function(s) ShowWindowsMessage(s)        Else          messageTarget = Function(s) ShowConsoleMessage(s)       End If       messageTarget("Hello, World!")    End Sub    Private Function ShowWindowsMessage(message As String) As Integer       Return MessageBox.Show(message)          End Function    Private Function ShowConsoleMessage(message As String) As Integer       Console.WriteLine(message)       Return 0    End Function End Module