Event wird einmal geraised, aber mehrfach behandelt.

  • VB.NET
  • .NET (FX) 4.0

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von sothere.

    Event wird einmal geraised, aber mehrfach behandelt.

    Hallöchen alle miteinander:
    Ich habe gerade ein komisches Problem: Ich habe eine Klasse erstellt, in der eigentlich nur eine Liste hinterlegt ist und ein Event geraised wird, wenn ein Element hinzugefügt wird. Aber aus irgend einem Grund wird das Event, wenn ich es in einer anderen Classe behandle, dann immer so oft ausgelöst, wie Elemente in der Liste sind, Hat da jemand eine Idee woran das liegen könnte?

    VB.NET-Quellcode

    1. Private Shared liste As New List(Of Block)
    3. Public Shared ReadOnly Property BlockList As List(Of Block)
    4. Get
    5. Return liste
    6. End Get
    8. End Property
    10. Public Shared Event MessageAdded()
    12. Public Shared Sub Add(ByVal _Block As Block)
    13. liste.Add(_Block)
    14. RaiseEvent MessageAdded()
    15. End Sub


    VB.NET-Quellcode

    1. Private Sub test()
    2. Debug.WriteLine("BB")
    3. End Sub
    5. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    6. Dim asd As New Block
    7. asd.Text = "Test"
    8. asd.Root = 17
    9. asd.Base = 2
    10. asd.Node = New Node(MainNodeInfo)
    12. Notify.Add(asd)
    13. AddHandler Notify.MessageAdded, AddressOf test
    14. End Sub


    Ich glaub, das da irgendwas an der Konzeption nicht hinhaut, aber mir fällt gerade nicht ein, was das sein könnte.
    Liebe Grüße
    sothere

    Hey,

    Dein Fehler liegt in Deinem 2. Codeblock, Zeile 13. Du "verdrahtest" bei jedem Klick erneut. Es reicht 1x.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private WithEvents _messages As New MessageList()
    4. Private Sub _messages_MessageAdded(sender As Object, e As EventArgs) Handles _messages.MessageAdded
    5. MessageBox.Show("Message added.")
    6. End Sub
    8. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    9. _messages.AddMessage("huhu")
    10. End Sub
    11. End Class
    13. Public Class MessageList
    14. Private _messages As New List(Of String)
    15. Public ReadOnly Property Messages As List(Of String)
    16. Get
    17. Return _messages
    18. End Get
    19. End Property
    21. Public Event MessageAdded As EventHandler
    23. Public Sub AddMessage(message As String)
    24. _messages.Add(message)
    25. OnMessageAdded()
    26. End Sub
    28. Protected Overridable Sub OnMessageAdded()
    29. RaiseEvent MessageAdded(Me, EventArgs.Empty)
    30. End Sub
    31. End Class


    Oder "verdrahte" im Konstruktor der Form.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

Facebook
Telefonspende