Bei Verbindung Listbox erstellen

  • Allgemein

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von Dendem.

    Bei Verbindung Listbox erstellen

    Hallo, ich habe ein weiteres kleines Problem,

    Ich habe einen TCP-Server programmiert und hätte gerne,
    dass bei jeder eingehenden Verbindung eine Listbox erstellt
    wird und dort bestimmte Daten des Clients eingetragen werden.

    VB.NET-Quellcode

    1. ....
    2. Private Structure Connection
    3. Dim stream As NetworkStream
    4. Dim streamw As StreamWriter
    5. Dim streamr As StreamReader
    6. Dim nick As String ' natürlich optional, aber für die identifikation des clients empfehlenswert.
    7. Dim geschossen As Integer
    8. Dim position As Point
    9. Dim winkel As Integer
    10. Dim waffe As Integer
    11. Dim libo As ListBox
    12. End Structure
    14. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    16. ipendpoint = New IPEndPoint(IPAddress.Any, TextBox1.Text)
    18. mainthread = New Threading.Thread(AddressOf mainserver)
    19. mainthread.Start()
    21. End Sub
    23. Sub mainserver()
    25. Dim y As Integer = 12
    26. MsgBox("Der Server läuft!")
    27. Server = New TcpListener(ipendpoint)
    28. Server.Start()
    30. While True ' wir warten auf eine neue verbindung...
    31. client = Server.AcceptTcpClient
    33. Dim c As New Connection ' und erstellen für die neue verbindung eine neue connection...
    34. c.stream = client.GetStream
    35. c.streamr = New StreamReader(c.stream)
    36. c.streamw = New StreamWriter(c.stream)
    37. Me.Controls.Add(c.libo)
    38. c.libo.Visible = True
    39. c.libo.Size = New Size(71, 459)
    40. c.libo.Location = New Point(y, 41)
    41. c.waffe = 1
    42. c.geschossen = 0
    43. c.winkel = 0
    44. c.position = New Point(250, 250)
    45. c.nick = c.streamr.ReadLine ' falls das mit dem nick nicht gewünscht, auch diese zeile entfernen.
    46. MsgBox(c.nick)
    47. liste.Add(c) ' und fügen sie der liste der clients hinzu.
    49. ' falls alle anderen das auch lesen sollen können, an alle clients weiterleiten. siehe SendToAllClients
    50. y = y + 77
    51. Dim t As New Threading.Thread(AddressOf ListenToConnection)
    52. t.Start(c)
    53. End While
    55. End Sub
    56. .....


    leider bekomme ich an der Stelle, bei der ich auf die Eigenschaften der listbox zugreife immer folgenden Fehler:

    Quellcode

    1. Eine nicht behandelte Ausnahme des Typs "System.NullReferenceException" ist in WindowsApplication6.exe aufgetreten.
    3. Zusätzliche Informationen: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.


    Im Formload-Event klappt alles wunderbar, aber das ist ja nicht Sinn der Sache :)

    Hoffe mir kann einer behilflich sein :)

    Dendem schrieb:

    Im Formload-Event klappt alles wunderbar
    Wird dort etwa eine Exception geworfen, von der Du nichts mitkriegst?
    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!

    Ist die Klasse "Connection" (ich gehe davon aus die selbst erstellt?) in irgendeiner Weise mit der Listbox verbunden?
    Wenn nein, erstell doch einfach eine neue Listbox per

    VB.NET-Quellcode

    1. Dim l as New listbox


    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

    Dendem schrieb:

    leider bekomme ich an der Stelle, bei der ich auf die Eigenschaften der listbox zugreife
    Wo genau ist das?
    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!

    Ich hab ja in der Klasse mehrere Variablen, für jede wird eine neue instanz in Verbindung zu der eingehenden Verbindung angelegt.
    z.B. nick, das klappt auch wunderbar, warum wird aber für die Listbox keine instanz angelegt?

    @fichz dann bräuchte ich aber für jeden Spieler ne Listbox mit nem anderen Namen

    @RodFromGermany ja wenn ich visible auf true setzt, oder größe und position verändern will

    Jetzt erst gesehen...

    VB.NET-Quellcode

    1. Private Structure Connection
    2. Dim stream As NetworkStream
    3. Dim streamw As StreamWriter
    4. Dim streamr As StreamReader
    5. Dim nick As String ' natürlich optional, aber für die identifikation des clients empfehlenswert.
    6. Dim geschossen As Integer
    7. Dim position As Point
    8. Dim winkel As Integer
    9. Dim waffe As Integer
    10. Dim libo As ListBox
    11. End Structure


    Ist klar. Du versuchst auf libo zuzugreifen obwohl noch kein Objekt daraus instanziert wurde.
    Mach

    VB.NET-Quellcode

    1. Dim libo As new ListBox


    Das sollte dein Problem lösen.

    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

    Wenn ich hier

    VB.NET-Quellcode

    1. Sub mainserver()
    3. Dim y As Integer = 12
    4. MsgBox("Der Server läuft!")
    5. Server = New TcpListener(ipendpoint)
    6. Server.Start()
    8. While True ' wir warten auf eine neue verbindung...
    9. client = Server.AcceptTcpClient
    10. [b]Dim libo as New Listbox[/b]
    11. Dim c As New Connection ' und erstellen für die neue verbindung eine neue connection...
    12. c.stream = client.GetStream
    13. c.streamr = New StreamReader(c.stream)
    14. c.streamw = New StreamWriter(c.stream)
    15. Me.Controls.Add(c.libo)
    16. c.libo.Visible = True
    17. c.libo.Size = New Size(71, 459)
    18. c.libo.Location = New Point(y, 41)
    19. c.waffe = 1
    20. c.geschossen = 0
    21. c.winkel = 0
    22. c.position = New Point(250, 250)
    23. c.nick = c.streamr.ReadLine ' falls das mit dem nick nicht gewünscht, auch diese zeile entfernen.
    24. MsgBox(c.nick)
    25. liste.Add(c) ' und fügen sie der liste der clients hinzu.
    27. ' falls alle anderen das auch lesen sollen können, an alle clients weiterleiten. siehe SendToAllClients
    28. y = y + 77
    29. Dim t As New Threading.Thread(AddressOf ListenToConnection)
    30. t.Start(c)
    31. End While
    33. End Sub


    da bleibt der Oben genannte fehler, wenn ich anstatt Dim libo as Listbox kommt:
    Nicht freigegebene Member in einer Struktur können nicht als "New" deklariert werden.

    Dann musst du entweder deine Structure zu einer Class machen (was in deinem Fall denk ich egal wäre)
    oder bevor du auf "libo" zugreifen willst:

    VB.NET-Quellcode

    1. c.streamw = New StreamWriter(c.stream)
    2. c.libo = New ListBox
    3. Me.Controls.Add(c.libo)


    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

    Wenn ich c.libo = new listbox mache, kommt bei mir:

    Eine nicht behandelte Ausnahme des Typs "System.InvalidOperationException" ist in System.Windows.Forms.dll aufgetreten.

    Zusätzliche Informationen: Ungültiger threadübergreifender Vorgang: Der Zugriff auf das Steuerelement Form1 erfolgte von einem anderen Thread als dem Thread, für den es erstellt wurde.

    -> Ich werde vermutlich Delegates brauchen? :)

    wenn ich die structure zu einer class mache steht da: ist in diesem Kontext nicht zugreifbar, da es "private" ist
    habs aber auch schon mit public versucht.

Facebook
Telefonspende