Comment : créer une expression lambda (Visual Basic)

Article
06/23/2023

Une expression lambda est une fonction ou une sous-routine qui n’a pas de nom. Une expression lambda peut être utilisée partout où un type délégué est valide.

Pour créer une fonction d’expression lambda à ligne unique

Dans n’importe quel cas où un type délégué peut être utilisé, saisissez le mot clé Function, comme dans l’exemple suivant :

Dim add1 = Function
Entre parenthèses, directement après Function, saisissez les paramètres de la fonction. Notez que vous ne spécifiez pas de nom après Function.

Dim add1 = Function (num As Integer)
Après la liste des paramètres, saisissez une expression unique comme corps de la fonction. La valeur que l’expression donne est la valeur renvoyée par la fonction. Vous n’utilisez pas de clause As pour spécifier le type de retour.
```
Dim add1 = Function(num As Integer) num + 1
```
Vous appelez l’expression lambda en passant un argument entier.
```
' The following line prints 6.
Console.WriteLine(add1(5))
```

L'exemple suivant permet d'obtenir le même résultat :

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

Pour créer une sous-routine d’expression lambda à ligne unique

Dans n’importe quel cas où un type délégué peut être utilisé, saisissez le mot clé Sub, comme montré dans l’exemple suivant.

Dim add1 = Sub
Entre parenthèses, directement après Sub, saisissez les paramètres de la sous-routine. Notez que vous ne spécifiez pas de nom après Sub.

Dim add1 = Sub (msg As String)
Après la liste des paramètres, tapez une instruction unique comme corps de la sous-routine.
```
Dim writeMessage = Sub(msg As String) Console.WriteLine(msg)
```
Vous appelez l’expression lambda en passant un argument de chaîne.
```
' The following line prints "Hello".
writeMessage("Hello")
```

Pour créer une fonction d’expression lambda multiligne

Dans n’importe quel cas où un type délégué peut être utilisé, saisissez le mot clé Function, comme montré dans l’exemple suivant.

Dim add1 = Function
Entre parenthèses, directement après Function, saisissez les paramètres de la fonction. Notez que vous ne spécifiez pas de nom après Function.

Dim add1 = Function (index As Integer)
Appuyez sur Entrée. L’instruction End Function est automatiquement ajoutée.

Dans le corps de la fonction, ajoutez le code suivant pour créer une expression et renvoyer la valeur. Vous n’utilisez pas de clause As pour spécifier le type de retour.

Dim getSortColumn = Function(index As Integer)
                        Select Case index
                            Case 0
                                Return "FirstName"
                            Case 1
                                Return "LastName"
                            Case 2
                                Return "CompanyName"
                            Case Else
                                Return "LastName"
                        End Select
                    End Function

Vous appelez l’expression lambda en passant un argument entier.

Dim sortColumn = getSortColumn(0)

Pour créer une sous-routine d’expression lambda multiligne

Dans n’importe quel cas où un type délégué peut être utilisé, saisissez le mot clé Sub, comme montré dans l’exemple suivant :

Dim add1 = Sub
Entre parenthèses, directement après Sub, saisissez les paramètres de la sous-routine. Notez que vous ne spécifiez pas de nom après Sub.

Dim add1 = Sub (msg As String)
Appuyez sur Entrée. L’instruction End Sub est automatiquement ajoutée.

Dans le corps de la fonction, ajoutez le code suivant à exécuter lorsque la sous-routine est appelée.

Dim writeToLog = Sub(msg As String)
                     Dim log As New EventLog()
                     log.Source = "Application"
                     log.WriteEntry(msg)
                     log.Close()
                 End Sub

Vous appelez l’expression lambda en passant un argument de chaîne.

writeToLog("Application started.")

Exemple

Une utilisation courante des expressions lambda consiste à définir une fonction qui peut être passée en tant qu’argument pour un paramètre dont le type est Delegate. Dans l’exemple suivant, la méthode GetProcesses retourne un tableau des processus en cours d’exécution sur l’ordinateur local. La méthode Where de la classe Enumerable nécessite un délégué Boolean comme argument. L’expression lambda dans l’exemple est utilisée à cet effet. Elle retourne True pour chaque processus qui n’a qu’un seul thread, et ceux-ci sont sélectionnés dans filteredList.

Sub Main()

    ' Create an array of running processes.
    Dim procList As Process() = Diagnostics.Process.GetProcesses

    ' Return the processes that have one thread. Notice that the type
    ' of the parameter does not have to be explicitly stated.
    Dim filteredList = procList.Where(Function(p) p.Threads.Count = 1)

    ' Display the name of each selected process.
    For Each proc In filteredList
        MsgBox(proc.ProcessName)
    Next

End Sub

L’exemple précédent équivaut au code suivant, qui est écrit dans la syntaxe LINQ (Language-Integrated Query) :

Sub Main()

    Dim filteredQuery = From proc In Diagnostics.Process.GetProcesses
                        Where proc.Threads.Count = 1
                        Select proc

    For Each proc In filteredQuery
        MsgBox(proc.ProcessName)
    Next
End Sub

Partager via