Odd Code Problem

[macuiare]

Hey Ive been racking my brains trying to figure out why my vb is acting like this and by this i mean

    Private Sub DoListen()
        constate = "Awaiting Connection"
        Do

            Try
                constate = "Connection Established"
                Dim tcpClient As TcpClient = listener.AcceptTcpClient()
                Dim networkStream As NetworkStream = tcpClient.GetStream()
                Dim bytes(tcpClient.ReceiveBufferSize) As Byte


                While networkStream.CanRead
                    Do
                        networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
                        Dim clientdata As String = Encoding.ASCII.GetString(bytes)

                        command = clientdata

thats just part of the do listen sub, which works perfectly.

but the problem is constate I have a timer which is enabled and started with a interval of 100 and the code on that is

textbox1.text = constate

but it doesnt change at all, before constate i was inserting textbox1.text = "connection....." but that didnt work either, only msgbox seemed to work, does anyone know what is wrong or waht would cause such a odd occurance?

[jmcilhinney]

Using a Timer for that is a hack anyway. When constate changes you should simply call a method that will explicitly update your TextBox:

Private Delegate Sub UpdateTextBoxCallback(ByVal text As String)
 
Private Sub UpdateTextBoxCallback(ByVal text As String)
    If Me.InvokeRequired Then
        Me.Invoke(New UpdateTextBoxCallback(AddressOf UpdateTextBoxCallback), text)
    Else
        Me.TextBox1.Text = text
    End If
End Sub

Now you just do like this:

Me.UpdateTextBox("Connection Established")

[Arve K.]

I think jmcilhinney was a little fast there, the example above might give you some errors. Try this instead

Private Delegate Sub UpdateTextBoxCallback(ByVal text As String)
 
Private Sub UpdateTextBox(ByVal text As String)
    If Me.InvokeRequired Then
        Me.Invoke(New UpdateTextBoxCallback(AddressOf UpdateTextBox), text)
    Else
        Me.TextBox1.Text = text
    End If
End Sub

[jmcilhinney]

I think jmcilhinney was a little fast there, the example above might give you some errors. Try this instead

Private Delegate Sub UpdateTextBoxCallback(ByVal text As String)
 
Private Sub UpdateTextBox(ByVal text As String)
    If Me.InvokeRequired Then
        Me.Invoke(New UpdateTextBoxCallback(AddressOf UpdateTextBox), text)
    Else
        Me.TextBox1.Text = text
    End If
End Sub

Good point. That's what happens when you type straight into the forum instead of into the IDE and then copy and paste.

[Arve K.]

Well, it felt good correcting one of the pro's

[macuiare]

ahhh so thats the pro way to do it =) thankyou both works like a charm

[Arve K.]

Remember to mark as resolved