[Vb.net]Form wird nit geladen

[Lord_Ben@]

tach ich habe folgendes prob und zwar würde ich gerne wissen warum hierbei meine form nit geladen wird...
wäre nett wenn ihr mir helfen könntet.

Imports System.Net.Sockets
Imports System.IO
Imports System.Net
Imports System.Threading
Public Class Form1
    Private server As TcpListener
    Private client As New TcpClient
    Private ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8000) ' eingestellt ist port 8000. dieser muss ggf. freigegeben sein!
    Private list As New List(Of Connection)
    Dim t As New Threading.Thread(AddressOf ListenToConnection)
    Dim c As New Connection

    Private Structure Connection
        Dim stream As NetworkStream
        Dim streamw As StreamWriter
        Dim streamr As StreamReader
        
    End Structure



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        server = New TcpListener(ipendpoint)
        server.Start()

        While True
            client = server.AcceptTcpClient


            c.stream = client.GetStream
            c.streamr = New StreamReader(c.stream)
            c.streamw = New StreamWriter(c.stream)


            list.Add(c)


            t.Start(c)


        End While
    End Sub

    Private Sub ListenToConnection(ByVal con As Connection)
        Do
            Try
                Dim tmp As String = con.streamr.ReadLine

                For Each c As Connection In list
                    Try

                        c.streamw.Flush()
                    Catch
                    End Try
                Next
            Catch
                list.Remove(con)

                Exit Do
            End Try
        Loop
    End Sub
End Class

[Sawyer]

Weil du nicht mit Threads arbeitest. Alles läuft auf dem Haupt-Thread weshalb die Anwendung auch nicht korrekt angezeigt wird. Wie bereits erwähnt das ganze in einem separaten Thread auslagern.

MfG, Sawyer

[Lord_Ben@]

ähm welches ganze kannste mal nen beispiel geben??

[Sawyer]

Du hast eine Funktion zwar bereits in einem Thread ausgelagert, aber nicht alles. Deinen Verbindungsaufbau solltest du natürlich auch noch einmal extra auslagern.

Imports System.Net.Sockets
Imports System.IO
Imports System.Net
Imports System.Threading

Public Class Form1
    Private server As TcpListener
    Private client As New TcpClient
    Private ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8000) ' eingestellt ist port 8000. dieser muss ggf. freigegeben sein!
    Private list As New List(Of Connection)
    Dim t As New Threading.Thread(AddressOf ListenToConnection)
    Dim c As New Connection

    Private Structure Connection
        Dim stream As NetworkStream
        Dim streamw As StreamWriter
        Dim streamr As StreamReader

    End Structure

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim th As New Thread(AddressOf Verbinde)
        th.Start()
    End Sub

    Private Sub Verbinde()
        server = New TcpListener(ipendpoint)
        server.Start()

        While True
            client = server.AcceptTcpClient


            c.stream = client.GetStream
            c.streamr = New StreamReader(c.stream)
            c.streamw = New StreamWriter(c.stream)


            list.Add(c)


            t.Start(c)

        End While
    End Sub

    Private Sub ListenToConnection(ByVal con As Connection)
        Do
            Try
                Dim tmp As String = con.streamr.ReadLine

                For Each c As Connection In list
                    Try

                        c.streamw.Flush()
                    Catch
                    End Try
                Next
            Catch
                list.Remove(con)

                Exit Do
            End Try
        Loop
    End Sub
End Class

MfG, Sawyer

[krusty]

ich erkläre nochmal:
weil du den source 1 zu 1 von vb-paradise kopiert hast, das ganze nicht in eine konsolenanwendung, sondern WindowsFormsanwendung geschmissen hast und nicht mit threads arbeitest.

Beispiel
Dim tThread as new System.Threading.Thread(of Adress SubName)
tThread.start()

SubName ist in dem Falle der Name der Sub, die im Thread ausgeführt werden soll.

Edit:
to Sawyer so wird es probleme mit den Controlls geben und der Thread im Hintergrund weiterlaufen, sollte das Programm beendet werden

[Lord_Ben@]

ja das mit den controlls habe ich aber grade noch so hinbekommen