TCP Chat nach Start im Hintergrund

  • VB.NET

    TCP Chat nach Start im Hintergrund

    Ich hab einen TCP Chat mit Server doch trotz das der Server läuft verschieb sich das Programm in den Hintergrund und ist nicht sichtbar...

    Code:

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    4. Public Class Form1
    5. Private stream As NetworkStream
    6. Private streamw As StreamWriter
    7. Private streamr As StreamReader
    8. Private client As New TcpClient
    9. Private t As New Threading.Thread(AddressOf Listen)
    10. Private Delegate Sub DAddItem(ByVal s As String)
    11. Private nick As String = My.Settings.Username
    12. Private Sub AddItem(ByVal s As String)
    13. ListBox1.Items.Add(s)
    14. End Sub
    16. Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
    17. Try
    18. client.Connect("127.0.0.1", 8000)
    19. If client.Connected Then
    20. stream = client.GetStream
    21. streamw = New StreamWriter(stream)
    22. streamr = New StreamReader(stream)
    24. streamw.WriteLine(nick)
    25. streamw.Flush()
    27. t.Start()
    28. Else
    29. MsgBox("Die Verbindung zum Server ist nicht möglich!" _
    30. & vbCrLf & "Das Problem kann folgende Ursachen haben:" _
    31. & vbCrLf & "- Der Server ist Offline" _
    32. & vbCrLf & "- Du bist nicht mit dem Internet verbunden" _
    33. & vbCrLf & vbCrLf & "Versuche es später erneut!")
    34. 'end
    35. End If
    36. Catch ex As Exception
    37. MsgBox("Die Verbindung zum Server ist nicht möglich!" _
    38. & vbCrLf & "Das Problem kann folgende Ursachen haben:" _
    39. & vbCrLf & "- Der Server ist Offline" _
    40. & vbCrLf & "- Du bist nicht mit dem Internet verbunden" _
    41. & vbCrLf & vbCrLf & "Versuche es später erneut!")
    42. 'end
    43. End Try
    44. End Sub
    46. Private Sub Listen()
    47. While client.Connected
    48. Try
    49. Me.Invoke(New DAddItem(AddressOf AddItem), streamr.ReadLine)
    50. Catch
    51. MsgBox("Die Verbindung zum Server wurde unterbrochen!")
    52. 'end
    53. End Try
    54. End While
    55. End Sub
    57. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    58. streamw.WriteLine(TextBox1.Text)
    59. streamw.Flush()
    60. TextBox1.Clear()
    61. End Sub
    62. End Class

Facebook
Telefonspende