Visual Basic

Protected Sub ActualizarTextoMensaje(ByVal sender As Object, ByVal e As System.EventArgs)
       Dim HHusuario As String = "config\usuario.txt"
       Dim Usuario As String
       Usuario = System.IO.File.ReadAllText(HHusuario)
       Dim line As String = ContenidoMensaje
       Dim parts() As String = line.Split("|"c)
       'ahora decodifico los bytes y los paso a el ListView
       Dim item As New ListViewItem()
       item.Text = parts(0)
       If item.Text = Usuario Then
           LNetgames.Items.Remove(item)
       Else
           For i As Integer = 1 To parts.Length - 1
               item.SubItems.Add(parts(i))
           Next
           LNetgames.Items.Add(item)
       End If

   End Sub

 Hello everyone, I have the following code that works perfectly without problems When sending the data throughout the network, but I have a problem that I cannot solve And it happens that When a client executes the program, it does Not receive the data from the other clients that are are connected only receives the data When New data Is sent.

Example someone connects And In the listview the information that the other users sent Is loaded because they are online, but If another connects they cannot see that information, what I want To Do Is To wait If a client connects again this I send you the information that Is In the listview

 #Region "Variables"
    'Object variable containing the socket
    Dim ElSocket As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)

    'Variable that contains the thread in charge of receiving the data
    Dim HiloRecibir As Thread

    'Variable that indicates whether the program is closing
    Dim Saliendo As Boolean = False

    'Temporary variables to store received data
    Dim DireccIP As String, ContenidoMensaje As String
#End Region


    'WE RECEIVE THE SUBMITTED DATA
    Private Sub RecibirDatos()
        'As long as the output indicator is not true
        Do Until Saliendo

            'Variable to get the IP of the sender machine
            Dim LaIPRemota As New IPEndPoint(IPAddress.Any, 0)
            'Variable to store ip temporarily
            Dim IPRecibida As EndPoint = CType(LaIPRemota, EndPoint)
            Dim RecibirBytes(255) As Byte 'Buffer
            Dim Datos As String = "" 'Text a Show

            Try
                'Receive the data                
                ElSocket.ReceiveFrom(RecibirBytes, RecibirBytes.Length, SocketFlags.None, IPRecibida)
                'converts them and saves it in the data variable
                Datos = Encoding.Default.GetString(RecibirBytes)
            Catch ex As SocketException
                If ex.ErrorCode = 10040 Then ' data too long                    
                    Datos &= "[truncado]" 'add the string "[truncated]" to the received text                
                Else
                    'displays the error message
MsgBox("Error '" & ex.ErrorCode.ToString & "' " & ex.Message, MsgBoxStyle.Critical, " Error receiving data ")
                End If
            End Try

            'converts the endpoint type to ipendpoint with its respective variables
            LaIPRemota = CType(IPRecibida, IPEndPoint)
            'saves the data in temporary variables
            DireccIP = LaIPRemota.Address.ToString
            ContenidoMensaje = Datos.ToString
            LNetgames.Invoke(New EventHandler(AddressOf ActualizarTextoMensaje))

        Loop
    End Sub

    'ADD DATA RECEIVED
    Protected Sub ActualizarTextoMensaje(ByVal sender As Object, ByVal e As System.EventArgs)

        Dim line As String = ContenidoMensaje
        Dim parts() As String = line.Split("|"c)
        'I now decode the bytes and pass them to the listview
        Dim item As New ListViewItem()
        item.Text = parts(0)
        For i As Integer = 1 To parts.Length - 1
            item.SubItems.Add(parts(i))
        Next
        LNetgames.Items.Add(item)

    End Sub

    'LOAD THE DATA
    Private Sub LoadSocket()
        'We separate the port 200145 to use it in our application        
        ElSocket.Bind(New IPEndPoint(IPAddress.Any, 20145))
        'We enable the Broadcast option for the socket
        ElSocket.SetSocketOption(SocketOptionLevel.Socket, SocketOptionName.Broadcast, True)
        HiloRecibir = New Thread(AddressOf RecibirDatos) 'Create the thread
        HiloRecibir.Start() 'Start the thread
    End Sub

    <Obsolete>
    Private Sub EnviarDatos()
        Dim IpExternal = GetComputer_InternetIP()
        Dim host_name As String = Dns.GetHostName()
        Dim ip_address As String = Dns.GetHostByName(host_name).AddressList(0).ToString()
        Dim HHusuario As String = "config\usuario.txt"
        Dim Player1 As String
        Player1 = System.IO.File.ReadAllText(HHusuario)
        'Contains the Broadcast address and the port used
        Dim DirecciónDestino As New IPEndPoint(IPAddress.Broadcast, 20145)
        'Buffer that will hold the data until it is sent
        Dim DatosBytes As Byte() = Encoding.Default.GetBytes(LNetgames.Text)
        'Send the data
        ElSocket.SendTo(DatosBytes, DatosBytes.Length, SocketFlags.None, DirecciónDestino)
    End Sub

Public Function Rutina()
        Do
            If Ejecuto = True Then
                Exit Do
            End If
            'check if tcp has pending connections
            If TCP.Pending = True Then
                'If it has Pending, I assign it to the client of the server that will listen
                TCPSERVERCLI.Client = TCP.AcceptSocket
            End If
            If TCPSERVERCLI.Connected = True Then
                'Indicates that there is data pending collection
                If TCPSERVERCLI.Available > 0 Then
                    Dim DataBytes(1000) As Byte
                    'Now the decoder
                    Dim decode As New ASCIIEncoding
                    TCPSERVERCLI.Client.Receive(DataBytes)
                    'now I decode the bytes and pass them to the ListView
                    Me.LNetgames.Items.Add(decode.GetString(DataBytes))
                    End If
            End If
        Loop
    End Function

Is it possible to extract information from pdf document with vb6?
Thank you very much in advance

Story:

I have a ListBox where I add custom objects, when the user clicks these custom objects in that ListBox some WPF Controls are generated in a stackpanel, these WPF Controls are properties of the custom objects. Below you may see the class.

<pre>    Public Class VariableClass

        Public Property Content As String
        Public Property myNameLabel As New Label
        Public Property myNameTextBox As New ComboBox
        Public Property myTypeLabel As New Label
        Public Property myTypeTextBox As New ComboBox

        Public Overrides Function ToString() As String
            Return Content.ToString()
        End Function

    End Class

<pre>    Private Sub ValuePanel_PreviewKeyDown(sender As Object, e As KeyEventArgs) Handles ValuePanel.PreviewKeyDown
        Dim myElement As ComboBox = e.OriginalSource.TemplatedParent

        Dim myVar = GetValue(myElement).GetType().GetProperty("PropertyName")


    End Sub