Application.DoEvents() Problem

[Tek]

Ok I am having a bit of a problem here. I am writing a server in vb.net. I need to run a loop that does not stop until I tell it too by the press of a button. So I put Application.DoEvents() in the loop. However, my program still locks up and will not respond. What is going on. I am using VS.Net 2002 btw.

[Tek]

Here is some code for you to look at

Public Sub StartServer(ByVal Listener As TcpListener, ByVal outputwindow As RichTextBox)
        Dim objSocket As Socket
        Dim bytData(32000) As Byte
        Dim charData() As Char
        Dim J As Integer
        Dim i As Integer
        Dim data As String
 
        Listener.Start()
        outputwindow.Text = outputwindow.Text & vbCrLf & "Server Started"
        While blnListen = True
            Application.DoEvents()
            objSocket = Listener.AcceptSocket()
            J = objSocket.Receive(bytData)
            ReDim charData(bytData.Length)
            While (J <> 0)
                charData = ConvertToChar(bytData)
                For i = 0 To charData.Length
                    data = data & charData(i)
                Next
            End While
            outputwindow.Text = outputwindow.Text & vbCrLf & data
        End While
    End Sub

[pax]

Hi.

I think you might need another Application.DoEvents() inside the second loop.

.
.
.
While (J <> 0)
    Application.DoEvents()
    charData = ConvertToChar(bytData)
    For i = 0 To charData.Length
        data = data & charData(i)
    Next
End While
.
.
.