1

まず第一に、私はここでグーグルしてきました、niは立ち往生しました、私は誰かからの手を必要とします。私はすでにパラメータとして関数を含むサブを持っています、今問題は私のボタンでこのサブをどのように呼び出すかです、plsは私に完全に説明します、私はとても必死でした

Public Function AddDec(ByVal Valdec1 As Decimal, ByVal Valdec2 As Decimal) As Decimal
    AddDec = Valdec1 + Valdec2
End Function

Sub Finished(ByVal AddDec As Func(Of Decimal, Decimal, Decimal))
    If DetailCount1.Text.Length >= 10 Or DetailCount2.Text.Length >= 10 Then
        If TextBox1.Text = "" Then TextBox1.Text = 0
        If DetailCount1.Text.Contains(",") Or DetailCount2.Text.Contains(",") Then
            Valdec2 = CDec(TextBox1.Text)
            TextBox1.Text = Adddec(Valdec1, Valdec2)
            MsgBox("HELP ME xD")
        Else
            ValDbl2 = CDbl(TextBox1.Text)
            TextBox1.Text = ValDbl1 + ValDbl2
        End If
    ElseIf Not DetailCount1.Text.Length >= 10 And Not DetailCount2.Text.Length >= 10 Then
        If TextBox1.Text = "" Then TextBox1.Text = 0
        If kindbil1 = "Even" And Label2.Text = "Even" Then
            val2 = CInt(TextBox1.Text)
            TextBox1.Text = CInt(val1 + val2)
        ElseIf kindbil1 = "Deci" And Label2.Text = "Deci" Then
            Valdec2 = CDec(TextBox1.Text)
            TextBox1.Text = CDec(Valdec1 + Valdec2)
        ElseIf kindbil1 = "Deci" And Label2.Text = "Even" Then
            val2 = CInt(TextBox1.Text)
            Valdec2 = CDec(val2)
            TextBox1.Text = CDec(Valdec1 + Valdec2)
        ElseIf kindbil1 = "Even" And Label2.Text = "Deci" Then
            Valdec2 = CDec(TextBox1.Text)
            Valdec1 = CDec(val1)
            TextBox1.Text = CDec(Valdec1 + Valdec2)
        End If
    End If

End Sub
4

1 に答える 1

1

何をしたいのか理解するのは少し難しいですが、パラメータの引数としてメソッドを使用Finishedして呼び出したいと思います。AddDecAddDec

これを行うには、演算子を使用する必要がありAddressOfます：

Finished(AddressOf AddDec)
于 2012-10-26T12:37:31.760 に答える