Threads

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von country.

    Threads

    ich hab folgende sub um einen User in eine "Online-Liste" einzutragen

    VB.NET-Quellcode

    1. Private Sub SetUseronline(ByVal text As String)
    2. If Me.lbUser.InvokeRequired Then
    3. Dim d As New ContextCallback(AddressOf SetUseronline)
    4. Me.Invoke(d, New Object() {text})
    5. Else
    6. Me.lbUser.Items.Add(text)
    7. End If
    8. End Sub


    wie kann ich nun über Invoke einen User austragen irgendwie steh ich auf dem Schlauch

    falls es jmd int. ich habs wie folgt gelöst

    VB.NET-Quellcode

    1. Delegate Sub DelgDelText(ByVal Text As String)


    VB.NET-Quellcode

    1. Private Sub DelText(ByVal Text As String)
    2. ' löscht aus einer Listbox ein Eintrag
    4. If lbUser.InvokeRequired Then
    5. ' Aufruf der Sub aus fremdem Thread
    6. Dim MyDelegate As New DelgDelText(AddressOf DelText)
    8. ' Function AddText erneut per Invoke
    9. Me.Invoke(MyDelegate, Text)
    10. Else
    11. lbUser.Items.Remove(Text)
    12. End If
    14. End Sub

Facebook
Telefonspende