创建 lambda 表达式

前端之家收集整理的这篇文章主要介绍了创建 lambda 表达式前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

1.首先创建单行的lambda表达式函数

  • 在任何可以使用委托类型的情况下,键入关键字 Function,如下面的示例所示:

    Dim add1 = Function

  • 在紧跟在 Function 后面的括号中键入函数的参数。 请注意,不要在 Function 后面指定名称

    Dim add1 = Function (num As Integer)

  • 在参数列表后面,键入单个表达式作为函数体。 该表达式计算得出的值即为函数返回的值。 不要使用 As 子句指定返回类型。

    VB
    1. Dim add1 = Function(num As Integer) num + 1
    2.  
    3.  

    可以通过传递整数参数来调用 lambda 表达式。

    VB
    1. ' The following line prints 6.
    2. Console.WriteLine(add1(5))
    3.  
    4.  
  • 或者,也可以按下面的示例所示得到同样的结果:

    VB
    1. Console.WriteLine((Function(num As Integer) num + 1)(5))
    2.  
    3. 我对红色的部分感兴趣,有些程序员写代码喜欢简写和简洁于是一条语句里既包括函数体也把相应的参数进行传入。
    1. 但是对于我这样起初学习lambda表达式的人还是有点晦涩的。所以从维护和读懂的角度来看还是分开写比较好。
    1. 但是中国软件人员都是大多合并到一起的。所以为了读懂别人的优秀代码也只能学会这么写了。但是自己还是不会这么写的。
    1.  
    1. 创建单行 lambda 表达式子例程

      1. 在任何可以使用委托类型的情况下,键入关键字 Sub,如下面的示例所示。

        Dim add1 = Sub

      1. 在紧跟在 Sub 后面的括号中键入子例程的参数。 请注意,不要在 Sub 后面指定名称

        Dim add1 = Sub (msg As String)

      1. 在参数列表后面,键入单个语句作为子例程体。

      1. VB
      1. Dim writeMessage = Sub(msg As String) Console.WriteLine(msg)
      1. 可以通过传递字符串参数来调用 lambda 表达式。

      1. VB
      1. ' The following line prints "Hello".
      1. writeMessage("Hello")
      1. 创建多行 lambda 表达式函数
      1.                
      1.                
        1. 在任何可以使用委托类型的情况下,键入关键字 Function,如下面的示例所示。

          Dim add1 = Function

        1. 在紧跟在 Function 后面的括号中键入函数的参数。 请注意,不要在 Function 后面指定名称

          Dim add1 = Function (index As Integer)

        1. 按 Enter。 自动添加 End Function 语句。

        1. 函数体内,添加以下代码以创建表达式并返回值。 不要使用 As 子句指定返回类型。

        1. VB
        1. Dim getSortColumn = Function(index As Integer)
        1.                         Select Case index
        1.                             Case 0
        1.                                 Return "FirstName"
        1.                             Case 1
        1.                                 Return "LastName"
        1.                             Case 2
        1.                                 Return "CompanyName"
        1.                             Case Else
        1.                                 Return "LastName"
        1.                         End Select
        1.                     End Function
        1. @H_404_439@可以通过传递整数参数来调用 lambda 表达式。

        1. VB
        1. Dim sortColumn = getSortColumn(0)
      1. 创建多行 lambda 表达式子例程

      1.                
      1.                
        1. 在任何可以使用委托类型的情况下,键入关键字 Sub,如下面的示例所示:

          Dim add1 = Sub

        1. 在紧跟在 Sub 后面的括号中键入子例程的参数。 请注意,不要在 Sub 后面指定名称

          Dim add1 = Sub(msg As String)

        1. 按 Enter。 自动添加 End Sub 语句。

        1. 函数体内,添加以下代码以在调用子例程时执行。

        1. VB
        1. Dim writeToLog = Sub(msg As String)
        1.                      Dim log As New EventLog()
        1.                      log.Source = "Application"
        1.                      log.WriteEntry(msg)
        1.                      log.Close()
        1.                  End Sub
        1. 可以通过传递字符串参数来调用 lambda 表达式。

        1. VB
        1. writeToLog("Application started.")
      1.                
      1.                
      1. lambda 表达式的一个常见用途是定义一个函数,该函数可作为 Delegate 类型的形参的实参进行传递。 在下面的示例中,GetProcesses 方法返回在本地计算机上运行的进程的数组。 Enumerable 类中的 Where 方法需要使用一个 Boolean 委托作为参数。 该示例中的 lambda 表达式就是为此目的而使用的。 对于每个仅有一个线程的进程以及在 filteredList 中选择的进程,它将返回 True

      1.                     
      1.                     
      1. VB
      1. Sub Main()
      1.     ' Create an array of running processes.
      1.     Dim procList As Process() = Diagnostics.Process.GetProcesses
      1.     ' Return the processes that have one thread. Notice that the type
      1.     ' of the parameter does not have to be explicitly stated.
      1.     Dim filteredList = procList.Where(Function(p) p.Threads.Count = 1)
      1.     ' Display the name of each selected process.
      1.     For Each proc In filteredList
      1.         MsgBox(proc.ProcessName)
      1.     Next
      1. End Sub
      1. 上一个示例等效于下面用语言集成查询 (LINQ) 语法编写的代码

      1.                     
      1.                     
      1. VB
      1. Sub Main()
      1.     Dim filteredQuery = From proc In Diagnostics.Process.GetProcesses
      1.                         Where proc.Threads.Count = 1
      1.                         Select proc
      1.     For Each proc In filteredQuery
      1.         MsgBox(proc.ProcessName)
      1.     Next
      1. End Sub
  • 猜你在找的VB相关文章