VB.Net使用Func -

程序代码：


    Public Shared Function MyAdd(i As Integer, j As Integer)
        Dim a As Integer
        a = i + j
        Return a
    End Function


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim MyFunc As Func(Of Integer, Integer, Integer) = New Func(Of Integer, Integer, Integer)(AddressOf MyAdd)
        Dim i = MyFunc(10, 20)
        MsgBox(i)
    End Sub

程序代码：


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim test As Func(Of Integer) = Function() 10
        Dim result = test.Invoke()
        MsgBox(result)

        ' Return an Integer with a String argument.
        ' ... Returns the string length multiplied by 2.
        Dim test2 As Func(Of String, Integer) = Function(x) x.Length * 2
        Dim result2 = test2.Invoke("bird")
        MsgBox(result2)
    End Sub

[本日志由 tiancao1001 于 2024-11-22 04:37 PM 编辑]

分享到： QQ空间新浪微博腾讯微博微信更多

暂时没有评论

发表评论 - 不要忘了输入验证码哦！

作者：

用户：密码：注册？验证：