Visual Basic

Mr Business Kid wrote:

Regardless of whether or not I set the logout time to 20 minutes later, 4 hours later, or 1 day later - I could actually be updating their status as being logged out of the application when they are in fact logged into the application. Do you have any other ideas?

cstrader232 wrote:

Sometimes when I open another window from a dropdown, the dropdown box items remain glued to the screen. The box just sits there in front of every other window, and never goes away.

Dim tcpClient As New System.Net.Sockets.TcpClient()
tcpClient.Connect("127.0.0.1", 8000)
 
Dim networkStream As NetworkStream = tcpClient.GetStream()
If networkStream.CanWrite And networkStream.CanRead Then
 
Dim sendBytes() As Byte = Encoding.ASCII.GetBytes("Is anybody there")
networkStream.Write(sendBytes, 0, sendBytes.Length)
 
Dim bytes(tcpClient.ReceiveBufferSize) As Byte
networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))

Dim returndata As String = Encoding.ASCII.GetString(bytes)

Dim desktop As SteidingerDesktop = New SteidingerDesktop
        Dim localhostAddress As IPAddress = IPAddress.Loopback
        Dim tcpList As New TcpListener(localhostAddress, 2048)
        tcpList.Start()
        Do
            Dim tcpcli As TcpClient = tcpList.AcceptTcpClient
            Dim ns As NetworkStream = tcpcli.GetStream
            Dim sr As New StreamReader(ns)
            Dim receivedData As String = sr.ReadLine()
            Dim result As Boolean

            If receivedData <> "" Then
                'Test the received data to see which function to call
                If receivedData = "BUYER" Then
                    result = desktop.getBuyers()
                ElseIf receivedData = "SHIP" Then
                    result = desktop.updateShip()
                ElseIf receivedData = "MOVE" Then
                    result = desktop.updateMove()
                ElseIf receivedData = "PHYINV" Then
                    result = desktop.updatePhyInv()
                End If


                Try
                    ' resultData = file.ReadAllText(fileName)
                Catch ex As Exception
                    'send back result        result = "ERROR"
                End Try
                'Send result
                SendData(ns, result)

            End If
            sr.Close()
            ns.Close()
            tcpcli.Close()
            If receivedData = "" Then Exit Do
        Loop

        tcpList.Stop()

Dim tcpClient As New System.Net.Sockets.TcpClient()
        tcpClient.Connect("ipaddress of my desktop", 2048)

        Dim networkStream As NetworkStream = tcpClient.GetStream()
        If networkStream.CanWrite And networkStream.CanRead Then

            Dim sendBytes() As Byte = Encoding.ASCII.GetBytes("Buyer")
            networkStream.Write(sendBytes, 0, sendBytes.Length)

            Dim bytes(tcpClient.ReceiveBufferSize) As Byte
            networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))

            Dim returndata As String = Encoding.ASCII.GetString(bytes, 0, bytes.Length)

        End If

N!ck wrote:

Dim gr As Graphics = pnlCell.CreateGraphics