Duda texto
Publicado por Pool (4 intervenciones) el 05/02/2011 16:23:44
Tengo una pequeña duda para hacer. Quiero que haya una form con text1 (para que introduzca el nick) y que me lleve a otra form (eso ya lo hice).
Y pongo esto:
Private Sub TCP_DataArrival(ByVal bytesTotal As Long) ' llegan datos
Dim datos As String ' Define datos como una string
TCP.GetData datos ' toma los datos que llegaron
Text1.Text = Text1.Text & datos & vbCrLf ' Escribe los datos en el texbox y le da un enter (para que no se junte la conversacion en una linea)
End Sub
Private Sub Command1_Click() ' Presionan el command1
TCP.SendData "Form4.Text1.Text = Form2.Text2.Text: " & Text2.Text ' Envia los Datos "Server: y lo que escribimos en e text2"
Text1.Text = Text1.Text & "Servidor: " & Text2.Text & vbCrLf ' tambien pone lo que nosotros escribimos en nuestro texbox para ver lo que enviamos
End Sub
Fijaros en Form4.Text1.Text = Form2.Text2.Text pero el problema es que no me sale lo que puso anteriormente, alguien me puede ayudar?
Muchas gracias,
Polmp
Y pongo esto:
Private Sub TCP_DataArrival(ByVal bytesTotal As Long) ' llegan datos
Dim datos As String ' Define datos como una string
TCP.GetData datos ' toma los datos que llegaron
Text1.Text = Text1.Text & datos & vbCrLf ' Escribe los datos en el texbox y le da un enter (para que no se junte la conversacion en una linea)
End Sub
Private Sub Command1_Click() ' Presionan el command1
TCP.SendData "Form4.Text1.Text = Form2.Text2.Text: " & Text2.Text ' Envia los Datos "Server: y lo que escribimos en e text2"
Text1.Text = Text1.Text & "Servidor: " & Text2.Text & vbCrLf ' tambien pone lo que nosotros escribimos en nuestro texbox para ver lo que enviamos
End Sub
Fijaros en Form4.Text1.Text = Form2.Text2.Text pero el problema es que no me sale lo que puso anteriormente, alguien me puede ayudar?
Muchas gracias,
Polmp
Valora esta pregunta
0