Cuando separo los datos que recibo de mi servidor, todo bien; el problema llega cuando viene la parte de colocar los datos recibidos en el listview. Por alguna razón, no se agrega nada, sin embargo, si al final del código uso "Debug.Print" para asegurarme de que sí llegó información, da positivo.
Este es mi código:
Código
Private Sub Winsock_DataArrival(ByVal Index As Variant, ByVal bytesTotal As Long) Dim Paquete As String Dim Datos() As String Winsock.GetData Index, Paquete Datos = Split(Paquete, "|") Select Case Datos(0) Case "Caso1" Dim Subelemento As ListItem Set Subelemento = List1.ListItems.Add(, , Datos(1)) Subelemento.SubItems(1) = Datos(2) End Select End Sub
¿Alguien le ve algún error? Muchas gracias. Barugasu.