vb.net - Wie Erklären neuen Aufgabe als SUB mit Parametern

Wie Sie wissen, haben wir eine neue syntax in vb.net mit der Möglichkeit, erstellen Sie inline-Aufgaben, so dass wir es ausführen asynchron.

Dies ist der richtige code:

        Dim testDeclaring As New Task(Sub()

                                      End Sub)
        testDeclaring.Start()

aber nun muss ich das übergeben eines Parameters im Unterprogramm, und ich kann nicht finden, die richtige syntax für die.
Ist es möglich, in irgendeiner Weise?

InformationsquelleAutor newbeee | 2013-04-20
  1. 8

    Ist es nicht möglich. Jedoch, Sie könnte verwenden Sie einfach die Parameter aus dem aktuellen Bereich:

    Public Function SomeFunction()

    Dim somevariable as Integer = 5

    Dim testDeclaring As New Task(Sub()
                                   Dim sum as integer = somevariable + 1  ' No problems here, sum will be 6
                              End Sub)
    testDeclaring.Start()

End Function
    • Danke!!! Das ist das, was ich suchte. BTW, weil es ein seltsames Verhalten in meinem Zusammenhang, aber ich denke, es ist das problem, für das andere Thema.
    InformationsquelleAutor Kenneth
  2. 10

    Wenn Sie möchten, dass ein parameter übergeben werden, die Sie tun können, diese

        Dim someAction As Action(Of Object) = Sub(s As Object)
                                              Debug.WriteLine(DirectCast(s, String))
                                          End Sub

    Dim testDeclaring As New Task(someAction, "tryme")
    testDeclaring.Start()
    • Was ist, wenn es mehr als einen parameter? Es gibt einen richtigen Weg, anstatt eine ArrayList übergeben von Parametern?
    InformationsquelleAutor dbasnett
  3. 1

    Weiß nicht, ob Sie auf der Suche nach diesem: 

    Dim t As Task = New Task(Sub() RemoveBreakPages(doc))

Sub RemoveBreakPages(ByRef doc As Document)
        Dim paragraphs As NodeCollection = doc.GetChildNodes(NodeType.Paragraph, True)
        Dim runs As NodeCollection = doc.GetChildNodes(NodeType.Run, True)
        For Each p In paragraphs
            If CType(p, Paragraph).ParagraphFormat().PageBreakBefore() Then
                CType(p, Paragraph).ParagraphFormat().PageBreakBefore = False
            End If
        Next
    End Sub

    Grüße.

    InformationsquelleAutor Jorge Solano
Schreibe einen Kommentar