Delen via

Lambda-expressies (Visual Basic)

  • Artikel

Een lambda-expressie is een functie of subroutine zonder een naam die kan worden gebruikt waar een gemachtigde geldig is. Lambda-expressies kunnen functies of subroutines zijn en kunnen één regel of meerdere regels zijn. U kunt waarden van het huidige bereik doorgeven aan een lambda-expressie.

Notitie

De RemoveHandler instructie is een uitzondering. U kunt geen lambda-expressie doorgeven voor de gemachtigdeparameter van RemoveHandler.

U maakt lambda-expressies met behulp van het Function of Sub trefwoord, net zoals u een standaardfunctie of subroutine maakt. Lambda-expressies worden echter opgenomen in een instructie.

Het volgende voorbeeld is een lambda-expressie waarmee het argument wordt verhoogd en de waarde wordt geretourneerd. In het voorbeeld ziet u zowel de syntaxis van de lambda-expressie met één regel als de syntaxis van een lambda-expressie voor een functie.

Dim increment1 = Function(x) x + 1
Dim increment2 = Function(x)
                     Return x + 2
                 End Function

' Write the value 2.
Console.WriteLine(increment1(1))

' Write the value 4.
Console.WriteLine(increment2(2))

Het volgende voorbeeld is een lambda-expressie waarmee een waarde naar de console wordt geschreven. In het voorbeeld ziet u zowel de syntaxis van de lambda-expressie met één regel als de syntaxis van de lambda-expressie voor een subroutine.

Dim writeline1 = Sub(x) Console.WriteLine(x)
Dim writeline2 = Sub(x)
                     Console.WriteLine(x)
                 End Sub

' Write "Hello".
writeline1("Hello")

' Write "World"
writeline2("World")

In de vorige voorbeelden worden de lambda-expressies toegewezen aan een variabelenaam. Wanneer u naar de variabele verwijst, roept u de lambda-expressie aan. U kunt ook een lambda-expressie tegelijk declareren en aanroepen, zoals wordt weergegeven in het volgende voorbeeld.

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

Een lambda-expressie kan worden geretourneerd als de waarde van een functieaanroep (zoals wordt weergegeven in het voorbeeld in de sectie Context verderop in dit onderwerp) of doorgegeven als een argument aan een parameter die een gemachtigdetype gebruikt, zoals wordt weergegeven in het volgende voorbeeld.

Module Module2

    Sub Main()
        ' The following line will print Success, because 4 is even.
        testResult(4, Function(num) num Mod 2 = 0)
        ' The following line will print Failure, because 5 is not > 10.
        testResult(5, Function(num) num > 10)
    End Sub

    ' Sub testResult takes two arguments, an integer value and a 
    ' delegate function that takes an integer as input and returns
    ' a boolean. 
    ' If the function returns True for the integer argument, Success
    ' is displayed.
    ' If the function returns False for the integer argument, Failure
    ' is displayed.
    Sub testResult(ByVal value As Integer, ByVal fun As Func(Of Integer, Boolean))
        If fun(value) Then
            Console.WriteLine("Success")
        Else
            Console.WriteLine("Failure")
        End If
    End Sub

End Module

Syntaxis van lambda-expressie

De syntaxis van een lambda-expressie lijkt op die van een standaardfunctie of subroutine. De verschillen zijn als volgt:

  • Een lambda-expressie heeft geen naam.

  • Lambda-expressies kunnen geen modifiers hebben, zoals Overloads of Overrides.

  • Lambda-functies met één As regel gebruiken geen component om het retourtype aan te wijzen. In plaats daarvan wordt het type afgeleid van de waarde waarnaar de hoofdtekst van de lambda-expressie evalueert. Als de hoofdtekst van de lambda-expressie bijvoorbeeld is cust.City = "London", is Booleanhet retourtype .

  • In lambda-functies met meerdere regels kunt u een retourtype opgeven met behulp van een As component of de As component weglaten, zodat het retourtype wordt afgeleid. Wanneer de As component wordt weggelaten voor een lambda-functie met meerdere regels, wordt het retourtype afgeleid van het dominante type van alle Return instructies in de lambda-functie met meerdere regels. Het dominante type is een uniek type waarnaar alle andere typen kunnen worden uitgebreid. Als dit unieke type niet kan worden bepaald, is het dominante type het unieke type waarnaar alle andere typen in de matrix kunnen worden beperkt. Als geen van deze unieke typen kan worden bepaald, is Objecthet dominante type . In dit geval treedt er een compilerfout op als Option Strict deze is ingesteld Onop.

    Als de expressies die zijn opgegeven aan de Return instructie bijvoorbeeld waarden van het type Integerbevatten, Longen Doublede resulterende matrix van het type Double. Zowel Integer als Long verbreed tot Double en alleen Double. Double Is daarom het dominante type. Zie Widening and Narrowing Conversions (Widening and Narrowing Conversions) voor meer informatie.

  • De hoofdtekst van een functie met één regel moet een expressie zijn die een waarde retourneert, niet een instructie. Er is geen Return instructie voor functies met één regel. De waarde die wordt geretourneerd door de functie met één regel is de waarde van de expressie in de hoofdtekst van de functie.

  • De hoofdtekst van een subroutine met één regel moet een instructie met één regel zijn.

  • Functies met één regel en subroutines bevatten End Function geen of End Sub instructie.

  • U kunt het gegevenstype van een lambda-expressieparameter opgeven met behulp van het As trefwoord of het gegevenstype van de parameter kan worden afgeleid. Alle parameters moeten opgegeven gegevenstypen hebben of alle parameters moeten worden afgeleid.

  • Optional en Paramarray parameters zijn niet toegestaan.

  • Algemene parameters zijn niet toegestaan.

Asynchrone Lambdas

U kunt eenvoudig lambda-expressies en instructies maken die asynchrone verwerking bevatten met behulp van de trefwoorden Async en Await Operator . Het volgende Voorbeeld van Windows Forms bevat bijvoorbeeld een gebeurtenishandler die een asynchrone methode aanroept en wacht. ExampleMethodAsync

Public Class Form1

    Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' ExampleMethodAsync returns a Task.
        Await ExampleMethodAsync()
        TextBox1.Text = vbCrLf & "Control returned to button1_Click."
    End Sub

    Async Function ExampleMethodAsync() As Task
        ' The following line simulates a task-returning asynchronous process.
        Await Task.Delay(1000)
    End Function

End Class

U kunt dezelfde gebeurtenis-handler toevoegen met behulp van een asynchrone lambda in een AddHandler-instructie. Als u deze handler wilt toevoegen, voegt u een Async wijzigingsfunctie toe vóór de lambda-parameterlijst, zoals in het volgende voorbeeld wordt weergegeven.

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        AddHandler Button1.Click,
            Async Sub(sender1, e1)
                ' ExampleMethodAsync returns a Task.
                Await ExampleMethodAsync()
                TextBox1.Text = vbCrLf & "Control returned to Button1_ Click."
            End Sub
    End Sub

    Async Function ExampleMethodAsync() As Task
        ' The following line simulates a task-returning asynchronous process.
        Await Task.Delay(1000)
    End Function

End Class

Zie Asynchrone programmering met Asynchroon programmeren met Async en Await voor meer informatie over het maken en gebruiken van asynchrone methoden.

Context

Een lambda-expressie deelt de context met het bereik waarin deze is gedefinieerd. Het heeft dezelfde toegangsrechten als elke code die in het bereik is geschreven. Dit omvat toegang tot lidvariabelen, functies en subs, Meen parameters en lokale variabelen in het bijbehorende bereik.

Toegang tot lokale variabelen en parameters in het betreffende bereik kan langer duren dan de levensduur van dat bereik. Zolang een gemachtigde die verwijst naar een lambda-expressie niet beschikbaar is voor garbagecollection, blijft de toegang tot de variabelen in de oorspronkelijke omgeving behouden. In het volgende voorbeeld is de variabele target lokaal, makeTheGamede methode waarin de lambda-expressie playTheGame is gedefinieerd. Houd er rekening mee dat de geretourneerde lambda-expressie, toegewezen aan takeAGuess in Main, nog steeds toegang heeft tot de lokale variabele target.

Module Module6

    Sub Main()
        ' Variable takeAGuess is a Boolean function. It stores the target
        ' number that is set in makeTheGame.
        Dim takeAGuess As gameDelegate = makeTheGame()

        ' Set up the loop to play the game.
        Dim guess As Integer
        Dim gameOver = False
        While Not gameOver
            guess = CInt(InputBox("Enter a number between 1 and 10 (0 to quit)", "Guessing Game", "0"))
            ' A guess of 0 means you want to give up.
            If guess = 0 Then
                gameOver = True
            Else
                ' Tests your guess and announces whether you are correct. Method takeAGuess
                ' is called multiple times with different guesses. The target value is not 
                ' accessible from Main and is not passed in.
                gameOver = takeAGuess(guess)
                Console.WriteLine("Guess of " & guess & " is " & gameOver)
            End If
        End While

    End Sub

    Delegate Function gameDelegate(ByVal aGuess As Integer) As Boolean

    Public Function makeTheGame() As gameDelegate

        ' Generate the target number, between 1 and 10. Notice that 
        ' target is a local variable. After you return from makeTheGame,
        ' it is not directly accessible.
        Randomize()
        Dim target As Integer = CInt(Int(10 * Rnd() + 1))

        ' Print the answer if you want to be sure the game is not cheating
        ' by changing the target at each guess.
        Console.WriteLine("(Peeking at the answer) The target is " & target)

        ' The game is returned as a lambda expression. The lambda expression
        ' carries with it the environment in which it was created. This 
        ' environment includes the target number. Note that only the current
        ' guess is a parameter to the returned lambda expression, not the target. 

        ' Does the guess equal the target?
        Dim playTheGame = Function(guess As Integer) guess = target

        Return playTheGame

    End Function

End Module

In het volgende voorbeeld ziet u het brede scala aan toegangsrechten van de geneste lambda-expressie. Wanneer de geretourneerde lambda-expressie wordt uitgevoerd Main als aDel, worden deze elementen geopend:

  • Een veld van de klasse waarin deze is gedefinieerd: aField

  • Een eigenschap van de klasse waarin deze is gedefinieerd: aProp

  • Een parameter van de methode functionWithNestedLambda, waarin deze is gedefinieerd: level1

  • Een lokale variabele van functionWithNestedLambda: localVar

  • Een parameter van de lambda-expressie waarin deze is genest: level2

Module Module3

    Sub Main()
        ' Create an instance of the class, with 1 as the value of 
        ' the property.
        Dim lambdaScopeDemoInstance =
            New LambdaScopeDemoClass With {.Prop = 1}

        ' Variable aDel will be bound to the nested lambda expression  
        ' returned by the call to functionWithNestedLambda.
        ' The value 2 is sent in for parameter level1.
        Dim aDel As aDelegate =
            lambdaScopeDemoInstance.functionWithNestedLambda(2)

        ' Now the returned lambda expression is called, with 4 as the 
        ' value of parameter level3.
        Console.WriteLine("First value returned by aDel:   " & aDel(4))

        ' Change a few values to verify that the lambda expression has 
        ' access to the variables, not just their original values.
        lambdaScopeDemoInstance.aField = 20
        lambdaScopeDemoInstance.Prop = 30
        Console.WriteLine("Second value returned by aDel: " & aDel(40))
    End Sub

    Delegate Function aDelegate(
        ByVal delParameter As Integer) As Integer

    Public Class LambdaScopeDemoClass
        Public aField As Integer = 6
        Dim aProp As Integer

        Property Prop() As Integer
            Get
                Return aProp
            End Get
            Set(ByVal value As Integer)
                aProp = value
            End Set
        End Property

        Public Function functionWithNestedLambda(
            ByVal level1 As Integer) As aDelegate

            Dim localVar As Integer = 5

            ' When the nested lambda expression is executed the first 
            ' time, as aDel from Main, the variables have these values:
            ' level1 = 2
            ' level2 = 3, after aLambda is called in the Return statement
            ' level3 = 4, after aDel is called in Main
            ' localVar = 5
            ' aField = 6
            ' aProp = 1
            ' The second time it is executed, two values have changed:
            ' aField = 20
            ' aProp = 30
            ' level3 = 40
            Dim aLambda = Function(level2 As Integer) _
                              Function(level3 As Integer) _
                                  level1 + level2 + level3 + localVar +
                                    aField + aProp

            ' The function returns the nested lambda, with 3 as the 
            ' value of parameter level2.
            Return aLambda(3)
        End Function

    End Class
End Module

Converteren naar een gemachtigdentype

Een lambda-expressie kan impliciet worden geconverteerd naar een compatibel type gemachtigde. Zie Relaxed Delegate Conversion voor meer informatie over de algemene vereisten voor compatibiliteit. In het volgende codevoorbeeld ziet u bijvoorbeeld een lambda-expressie die impliciet wordt geconverteerd naar Func(Of Integer, Boolean) of een overeenkomende gedelegeerdehandtekening.

' Explicitly specify a delegate type.
Delegate Function MultipleOfTen(ByVal num As Integer) As Boolean

' This function matches the delegate type.
Function IsMultipleOfTen(ByVal num As Integer) As Boolean
    Return num Mod 10 = 0
End Function

' This method takes an input parameter of the delegate type. 
' The checkDelegate parameter could also be of 
' type Func(Of Integer, Boolean).
Sub CheckForMultipleOfTen(ByVal values As Integer(),
                          ByRef checkDelegate As MultipleOfTen)
    For Each value In values
        If checkDelegate(value) Then
            Console.WriteLine(value & " is a multiple of ten.")
        Else
            Console.WriteLine(value & " is not a multiple of ten.")
        End If
    Next
End Sub

' This method shows both an explicitly defined delegate and a
' lambda expression passed to the same input parameter.
Sub CheckValues()
    Dim values = {5, 10, 11, 20, 40, 30, 100, 3}
    CheckForMultipleOfTen(values, AddressOf IsMultipleOfTen)
    CheckForMultipleOfTen(values, Function(num) num Mod 10 = 0)
End Sub

In het volgende codevoorbeeld ziet u een lambda-expressie die impliciet wordt geconverteerd naar Sub(Of Double, String, Double) of een overeenkomende gedelegeerdehandtekening.

Module Module1
    Delegate Sub StoreCalculation(ByVal value As Double,
                                  ByVal calcType As String,
                                  ByVal result As Double)

    Sub Main()
        ' Create a DataTable to store the data.
        Dim valuesTable = New DataTable("Calculations")
        valuesTable.Columns.Add("Value", GetType(Double))
        valuesTable.Columns.Add("Calculation", GetType(String))
        valuesTable.Columns.Add("Result", GetType(Double))

        ' Define a lambda subroutine to write to the DataTable.
        Dim writeToValuesTable = Sub(value As Double, calcType As String, result As Double)
                                     Dim row = valuesTable.NewRow()
                                     row(0) = value
                                     row(1) = calcType
                                     row(2) = result
                                     valuesTable.Rows.Add(row)
                                 End Sub

        ' Define the source values.
        Dim s = {1, 2, 3, 4, 5, 6, 7, 8, 9}

        ' Perform the calculations.
        Array.ForEach(s, Sub(c) CalculateSquare(c, writeToValuesTable))
        Array.ForEach(s, Sub(c) CalculateSquareRoot(c, writeToValuesTable))

        ' Display the data.
        Console.WriteLine("Value" & vbTab & "Calculation" & vbTab & "Result")
        For Each row As DataRow In valuesTable.Rows
            Console.WriteLine(row(0).ToString() & vbTab &
                              row(1).ToString() & vbTab &
                              row(2).ToString())
        Next

    End Sub


    Sub CalculateSquare(ByVal number As Double, ByVal writeTo As StoreCalculation)
        writeTo(number, "Square     ", number ^ 2)
    End Sub

    Sub CalculateSquareRoot(ByVal number As Double, ByVal writeTo As StoreCalculation)
        writeTo(number, "Square Root", Math.Sqrt(number))
    End Sub
End Module

Wanneer u lambda-expressies toewijst aan gemachtigden of als argumenten doorgeeft aan procedures, kunt u de parameternamen opgeven, maar hun gegevenstypen weglaten, zodat de typen van de gemachtigde worden overgenomen.

Voorbeelden

  • In het volgende voorbeeld wordt een lambda-expressie gedefinieerd die retourneert True als het argument voor het type null-waarde een toegewezen waarde heeft en False of de waarde is Nothing.

    Dim notNothing =
  Function(num? As Integer) num IsNot Nothing
Dim arg As Integer = 14
Console.WriteLine("Does the argument have an assigned value?")
Console.WriteLine(notNothing(arg))

  • In het volgende voorbeeld wordt een lambda-expressie gedefinieerd die de index van het laatste element in een matrix retourneert.

    Dim numbers() = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9}
Dim lastIndex =
  Function(intArray() As Integer) intArray.Length - 1
For i = 0 To lastIndex(numbers)
    numbers(i) += 1
Next

Zie ook