Odd Code Problem

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

Code:

---

    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?

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

vb.net Code:

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:

vb.net Code:

Me.UpdateTextBox("Connection Established")

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

vb.net Code:

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

Quote:

---

Originally Posted by _powerade_

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

vb.net Code:

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. :rolleyes:

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

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

Remember to mark as resolved :)