Hola a todos aqui ando de nuevo.
La cuestion es que tengo un MDIForm con el siguiente codigo
Código:
Option Explicit
Private Sub MDIForm_Load()
Form1.Show
Form2.Show
Form3.Show
End Sub
y este codigo se repite en los siguientes form1, form2 y form3
Código:
Option Explicit
Dim ContenidoTextoRecibido As String
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim TextoRecibido As String
Winsock1.GetData TextoRecibido
ContenidoTextoRecibido = ContenidoTextoRecibido + TextoRecibido
If Right(TextoRecibido, 7) <> "/\Fin/\" Then Exit Sub
TextoRecibido = ContenidoTextoRecibido
ContenidoTextoRecibido = ""
'Procedimiento con el texto que se descargo
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Winsock1.Close
Winsock1.Connect "168.15.6.X", 6584
End Sub
En el load de los form1 es donde hace la primera vez la conexion del socket
Creen que existe un problema al usar este codigo, respecto a la variable
ContenidoTextoRecibido ...
PD: la Ip es inventada pero variaria no es la misma para todos
Marcadores