Variable als Zeiger auf Prozedur

  • VB.NET
  • .NET (FX) 4.0

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

    Variable als Zeiger auf Prozedur

    Hallo,

    ich möchte gerne mit einer Variable auf einer Prozedur zeigen.
    kleines Beispiel:

    VB.NET-Quellcode

    1. Dim stopw As New Stopwatch
    3. Sub TimerStarten(Byval AufzurufendeProzedur as ???)
    4. AddHandler Startseite.stopw.Tick, AddressOf AufzurufendeProzedur
    5. stopw.start()
    6. end sub
    8. Sub stopw_tick(sender As System.Object, e As System.EventArgs)
    9. hier_wird_jetzt_einfach_irgendwas_gemacht()
    10. end sub


    Bei dem Beispiel wurde jetzt die Prozedur so aufgerufen:

    VB.NET-Quellcode

    1. TimerStarten(stopw_tick)


    Bei den ??? weiß ich nicht was eigefügt werden soll.
    Ich hoffe da ist möglich auf eine Prozedur oder Funktion zu zeigen.

    Vielen Dank schonmal für eure Hilfe :)

    Krogjan schrieb:

    Prozedur oder Funktion
    Das Zauberwort heißt Delegate.
    Gugst Du hier.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    In diesem Fall, wo du ein Event anhängen willst, ist der Delegat schon vordefiniert, und hat den Typ EventHandler (übrigens der typische Delegat für sehr sehr viele Events)

    Guck dir diesen Code an:

    VB.NET-Quellcode

    1. Private _Counter As Integer = 0
    2. Dim stopw As New Timer With {.Interval = 1000, .Enabled = True} 'läuft die ganze Zeit, macht ja nix, wenn nix dranhängt
    4. Sub TimerStarten(prevProc As EventHandler, newProc As EventHandler)
    5. RemoveHandler stopw.Tick, prevProc
    6. AddHandler stopw.Tick, newProc
    7. End Sub
    8. Sub CountUp(sender As System.Object, e As System.EventArgs)
    9. _Counter += 1
    10. End Sub
    11. Sub CountDown(sender As System.Object, e As System.EventArgs)
    12. _Counter -= 1
    13. End Sub
    15. Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged
    16. Dim newHandler, previousHandler As EventHandler
    17. If CheckBox1.Checked Then
    18. newHandler = AddressOf CountUp
    19. previousHandler = AddressOf CountDown
    20. Else
    21. newHandler = AddressOf CountDown
    22. previousHandler = AddressOf CountUp
    23. End If
    24. TimerStarten(previousHandler, newHandler)
    25. End Sub
    (eine StopWatch ist übrigens kein Timer!)
    Ist die Checkbox gecheckt, so wird CountDown entfernt, und CountUp geaddet - andernfalls annersrum.
    Beachte, dass eine echte Delegat-Variable ohne das AddressOf-Schlüsselwort geadded wird.
    AddressOf ist einfach ein besonderer Operator, der aus einer MethodenDeklaration einen Delegaten macht. Ist der Delegat schon ein Delegat, so ist AdressOf türlich fehl am Platz.

    Zu Delegaten gibts endlos viel zu lernen - auch eine Menge grad mit Events. Guck dir mal Alles über Events - das hat einen anneren Schwerpunkt, aber Delegaten kommen auch reichlich vor.

    Seit 2005 - Einführung der Generica ist das selbst deklarieren von Delegaten fast immer überflüssig. Aber die übliche Literatur führt das immer noch vor, aber gewöhn dir besser an, gleich die generischen Delegaten Action(Of T) zu verwenden - mit denen kann man fast alles abdecken.
    Für Events gibts auch generische Delegaten, Eventhandler(Of T) - naja, ziemlich fortgeschritten - siehe das Tut.

    PS: Falls du nu selbst Code damit erstellst, empfehle ich dir, den hier zu posten. Da kann man meist jede Menge aufhübschen, wenn Einsteiger Code produzieren, grad zu Neuland-Themen.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ErfinderDesRades“ ()

Facebook
Telefonspende