Abstract

• Introduction
• 使用方式
• 特色
• 呼叫不具回傳值的副程式

Introduction

「Lambda 運算式」(Lambda Expression) 是沒有名稱的函式，會計算並傳回單一值。

使用方式

宣告方式

Function (參數) 運算式

簡易的宣告範例

Function (num As Integer) num + 1

若要重覆利用呼叫，可以將函式指派為變數名稱。

Dim add1 = Function(num As Integer) num + 1

要使用時就可以直接叫用。

Console.WriteLine(add1(5))

或是在宣告時直接叫用。

Console.WriteLine((Function(num As Integer) num + 1)(5))

特色

• Lambda 運算式沒有名稱。
• Lambda 運算式不能有修飾詞 (Modifier)，例如 Overloads 或 Overrides。
• Lambda 運算式不會使用 As 子句指定函式的傳回型別。而是從 Lambda 運算式評估之主體的值來推斷型別。例如，如果 Lambda 運算式的主體是 Where cust.City = “London”，其傳回型別為 Boolean。
• 函式的主體必須是運算式，而不是陳述式。主體可以由對函式程序的呼叫組成，但不可由對子程序的呼叫組成。
• 沒有 Return 陳述式。函式傳回的值就是函式主體中運算式的值。
• 沒有 End Function 陳述式。
• 所有參數都必須具有指定的資料型別，不然所有參數就都必須經過推斷。
• 不允許使用 Optional 和 Paramarray 參數。
• 不允許使用泛型參數。
• 只支援單行運算式(C#支援多行運算式)。
• Lambda 運算式不能直接呼叫不具回傳值的副程式(C#可以)。

呼叫不具回傳值的副程式

Lambda 運算式的特點之一就是不能直接呼叫不具回傳值的副程式。其實這也是本篇主要想記載的小技巧。

我們先來看一下程式碼。

由上圖可以看出，若在Lambda運算示中欲直接呼叫不具回傳值的副程式，將會產生"運算式沒有產生值"的錯誤。

那是否就不行叫用不具回傳值的副程式了呢？其實換個想法，若我們可以讓不具回傳值的副程式，透過某些方法，把它變成具有回傳值的函式，那一切不就解決了嗎？

為此，我們可以透過CallByName函式來達到此需求。

完整程式碼如下

Module Module1

    Sub Main()
        Dim obj As New OutputClass
        Dim Output = Function(msg As String) CallByName(obj, "WriteLine", CallType.Method, msg)
        Output("Test")
    End Sub

End Module

Class OutputClass
    public Sub WriteLine(ByVal msg As String)
        Console.WriteLine(msg)
    End Sub
End Class

執行結果

Lambda運算式透過上面的小技巧，已能呼叫不具回傳值的副程式。使用上因此變得更具彈性。如下範例，我們可用Lambda運算式做更多的應用。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    GO()
End Sub

Private Sub GO()
    Dim f As New Form
    Dim b As New Button
    Dim lst As New ListBox

    With lst
        .Items.Add("Double Click Me")
        .Dock = DockStyle.Fill
    End With
    AddHandler lst.DoubleClick, Function(sender As Object, e As EventArgs) CallByName(b, "PerformClick", CallType.Method, Nothing)

    With b
        .Text = "Ok"
        .DialogResult = Windows.Forms.DialogResult.OK
        .Dock = DockStyle.Bottom
    End With
    AddHandler b.Click, Function(sender As Object, e As EventArgs) MsgBox("You Click Me")

    With f
        .Controls.AddRange(New Control() {lst, b})
        .ShowDialog()
    End With
End Sub

執行結果