socket监听出现死循环？

[CanDy_O]

    Public Class client_thread
        Public Sub startup()
            While True
                Dim databuf(1024) As Byte
                Dim x As Integer = c_socket.Receive(databuf, 0, c_socket.Available, SocketFlags.None)
                Dim str1 As String = Encoding.Unicode.GetString(databuf, 0, x)
                If str1 = "LoginYES" Then
                    form2.Show()
                End If
            End While
            c_socket.Shutdown(SocketShutdown.Both)
            c_socket.Close()
        End Sub
    End Class

接收到LoginYES后显示另一个窗体，这样是不是在接受下一个字符串之前就一直循环显示这个窗体？
错误貌似就是这样，运行时，form2出来后就卡死了。
这。。。怎么办啊？

[CanDy_O]

怎么没人啊

[yanlongwuhui]

循环体中没有设置退出条件

[CanDy_O]

貌似问题变了，我把 form2.Show() 改成form2.showdialog()或者application.run(form2)就可以了，但是之后又会出现错误，原因是在一个线程中操作不是这个线程创建的控件，导致不安全

有没有办法让一个线程安全操作其他线程创建的控件呢？

[jieon]

委托。

[CanDy_O]

解决了！
在这个线程启动前加一句
thread.ApartmentState = System.Threading.ApartmentState.STA
就ok了

[ineedchrist]

你的代码质量太差，百度里搜TCP侦听，有个我写的类，用异步处理这个东西