hola
le comento a quien tenga la amabilidad de ayudar
estoy aprendiendo por mi cuenta a programar en vb6 ya se que esta un poco desfasado pero es el lenguaje en el que he incontrado mas información en internet.
mi pregunta es muy sencilla
que rutina utilizo para desde text1.test con la opción keypress al oprimir intro me envié los datos teniendo en cuenta que tengo un cmdenviar
mejor os copio la rutina de lo voy practicando gracias.
Private Sub cmdConectar_Click()
With TCP1
.RemoteHost = "casa"
.RemotePort = 1007
.Connect
End With
End Sub
Private Sub cmdEnviar_Click()
Dim endato As String
endato = txtEnviar
TCP1.SendData (endato)
txtEnviar = ""
End Sub
Private Sub TCP1_Connect()
'condicion si winsock esta conectado
If (TCP1.State = sckConnected) Then
MsgBox "conecxion establecida"
Else
MsgBox "Conexion fallida"
End If
End Sub
Private Sub TCP1_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)
MsgBox "ERROR" & Number, vbOKOnly
End Sub
Private Sub txtEnviar_KeyPress(KeyAscii As Integer)
'para que intro envie datos
If keyacsii = 13 Then
cmdEnviar.SetFocus
End If
End Sub
