功能的VB动态参数

如何解决功能的VB动态参数

有什么方法可以动态获取函数的参数？ 喜欢：

Function(text As String,If text = "yes" text2 As String)

End Function

那么第二个被问到，第一个是什么时候被填充或者是某个值？ 可选是不可能的，例如，由于第二个已经填满，例如，第三个需要填满。

解决方法

不，您不能那样做。但是您可能通过Currying完成类似的工作。

Currying接受一个需要多个参数的函数，然后转换为一组每个都需要一个参数的函数，其中集合中的先前函数将返回集合中的下一个函数。

对于您的情况，这仍然是个问题。.Net喜欢强类型的委托。如果初始函数在任何情况下都需要返回一个带有一个参数的方法，则必须在所有情况下都执行该操作。

但是，这并不意味着它返回相同的函数。您仍然可以根据初始输入参数来更改返回哪个函数。

所以代替这个：

Function test(text As String,a As String) As String
    If text = "yes" Then
        Return text & a
    Else
        Return a & text
    End If
End Function

test("yes","foo") ' produces "yesfoo"
test("no","foo")  ' produces "foono"

我们有这个：

Function test(text As String) As Func(Of String,String)
    If text = "Yes" Then
        Return Function(a) text & a
    Else
        Return Function(a) a & text
    End If
End Function

test("yes")("foo") ' produces "yesfoo"
test("no")("foo")  ' produces "foono"

这不会完全满足您的要求；还是在每种情况下都不需要附加参数。但这可能为您提供足够的新灵活性来实现您的最终目标。例如，也许您可​​以将其与closure结合使用，在其中您从不使用附加参数，但是在需要时，附加值仍然可用。究竟是什么样的外观，或者它是否真的可能或有帮助，将取决于您要完成的工作的细节，而不是问题中的简单测试代码。

,

您可以处理在按钮代码中传递的内容。

Private Sub Button1_Click(sender As Object,e As EventArgs) Handles Button1.Click
    Dim paramValue As String
    If MyTestText = "yes" Then
        paramValue = TextBox2.Text
    Else
        paramValue = TextBox1.Text
    End If
End Sub

Private Function SomeFunction(text As String) As String
    Dim ReturnValue As String = ""
    'your code here
    Return ReturnValue
End Function

或者您可以同时传递两个值并在功能代码中进行测试

Private Sub Button1_Click(sender As Object,e As EventArgs) Handles Button1.Click
    Dim ReturnedValue = SomeFunction(TextBox1.Text,TextBox2.Text)
End Sub

Private Function SomeFunction(text1 As String,text2 As String) As String
    Dim ReturnValue As String = ""
    If MyTestText = "yes" Then
        'process text2
    Else
        'process text1
    End If
    Return ReturnValue
End Function

我相信还有其他方法可以解决这个问题。