Sub als Parameter

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Sub als Parameter

    Hallo,

    ich würde gerne einem Sub als Parameter einen Sub übergeben.

    Der Sub den ich habe soll erst ein paar andere Sachen ausführen und dann den Sub der übergeben wurde.

    VB.NET-Quellcode

    1. Private Sub Hallo(Byval X As Sub())
    2. End Sub

    funktioniert natürlich nicht.
    Weiss jemand wie ich das hinbekomme?


    Mfg Kevin

    Beispiel für Delegaten:

    VB.NET-Quellcode

    1. Private Delegate Sub SomeSubDelegate(ByVal a As String, ByVal b As String)
    3. Private Sub Hallo(ByVal X As SomeSubDelegate)
    4. X("Hallo!", "Test")
    5. End Sub
    7. ' Übergabe
    8. Hallo(AddressOf EinSubDasZweiStringsAlsParameterNimmt)
    Es gibt viele vordefinierte Delegaten, bspw. Action.

    Pseudo habe ich mir das so vorgestellt:

    VB.NET-Quellcode

    1. Sub Main()
    2. Happens(Sub() Logout()))
    3. End Sub
    5. Private Sub Happens(ByVal X As Sub())
    6. While True
    7. Dim S As String = New Net.WebClient().DownloadString("...")
    8. If Not S.Contains("ex") Then
    9. Label1.Text = "Kommt noch vor"
    10. Else
    11. X()
    12. End If
    13. End While
    14. End Sub
    16. Private Sub Logout()
    17. ' Ausloggen..
    18. End Sub


    Dass man halt einen Sub übergeben kann der beliebige Aktionen beinhaltet.

    Konstant kann ich das nicht machen, weil ich es eigentlich für eine Klassenbibliothek nutzen wollte.
    Der User kann einem Sub/Funktion einen Sub übergeben der dann ausgeführt wird.
    Die Stelle an welcher der übergebene Sub ausgeführt wird ist natürlich konstant das ist klar.

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Kevin Hombre“ ()

    VB.NET-Quellcode

    1. Sub Main()
    2. Happens(AddressOf LogIn)
    3. Happens(AddressOf Logout)
    4. End Sub
    6. Private Sub Happens(ByVal action As Action)
    7. While True
    8. Dim S As String = New Net.WebClient().DownloadString("...")
    9. If Not S.Contains("ex") Then
    10. Label1.Text = "Kommt noch vor"
    11. Else
    12. action()
    13. End If
    14. End While
    15. End Sub
    17. Private Sub LogIn()
    18. ' Einloggen..
    19. End Sub
    21. Private Sub Logout()
    22. ' Ausloggen..
    23. End Sub

    Eine ziemliche Erweiterung erfährt dein Ansatz auch durch anonyme Methoden

    VB.NET-Quellcode

    1. Sub Main()
    2. Happens(AddressOf LogIn)
    3. Happens(AddressOf Logout)
    4. Happens(Sub() MessageBox.Show("ich bin eine anonyme Action"))
    5. End Sub

    Liesma in Alles über Events nach, insbesondere über Delegaten, generische Delegaten und Signaturen.

    Es sind nämlich nicht nur Parameterlose Subs möglich, sondern alle Arten und Anzahlen von Parametern, und auch Rückgabewerte

Facebook