Mensajes

Texngo 2 cajas te texto :
text1 con scrollbars vertical y con Multiline=True

alguien sabe como hacer para que el scrollbars a medida que voy escribiendotexto se mantenga abajo como en los chat y cosascosas haci ..

gracias amigos :
era esto
Private Sub Command1_Click()
Text1.Text = Text1.Text + vbCrLf + Text2.Text
End Sub

grax

Texngo 2 cajas te texto :
text1 con scrollbars vertical y con Multiline=True

luego tengo un text2 que es donde quiero ingresar el texto

pero lo que quiero hacer es que cada ves que ingrese un texto  haga un salto de linea osea cada ves que agrego abajo y la otra linea abajo de la otra y haci sucesivamente una linea bajo otra a medida que voy agregando bueno agradeceria su ayuda.

Pero supuestamente deberia quedar el coenctado todo el rato si cumple la condicion.me podrias explicar mejor,o que tengo mal yo.plz

#esto es todo mi codigo del cliente


Private Sub Command1_Click()
On Error Resume Next
Winsock1.RemoteHost = Text3.Text
Winsock1.Connect
End Sub
Private Sub Command2_Click()
Dim enviar As String
   enviar = Text2.Text
   Winsock1.SendData enviar
   Text1.Text = ""
   Text2.Text = ""
End Sub
Private Sub Command3_Click()
Winsock1.Close
End


End Sub

Private Sub Label4_Click()

End Sub

Private Sub Timer1_Timer()
If Winsock1.State = winsock1Closed Then
            Label4.Caption = "-Desconectado-"

End If
If Winsock1.State = winsock1Connected Then
            Label4.Caption = "-Conectado-"
End If
End If
If Winsock1.State = winsock1Connecting Then
      Label4.Caption = "-Conectando-"
End If

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
   Text1.Text = ""
   Winsock1.GetData datos
   Text1.Text = Text1.Text + datos
End Sub

#pero la parte del Timer me pasa lo que te dije(#el problema es que siempre queda en conectando.)no cambia a conectado ni a desconectado Bueno agradeceria la ayuda

.....::::G.T.S::::.....
sabes que tengo este codigo que puse en timer le di el intervalo de valor 1 y dentro del timer del cliente  puse esto:
a y el label que me muestra el resultado es el 4

#codigo
Private Sub Timer1_Timer()
If Winsock1.State = winsock1Closed Then
            Label4.Caption = "-Desconectado-"
End If

If Winsock1.State = winsock1Connected Then
              Label4.Caption = "-Conectado-"

End If
If Winsock1.State = winsock1Connecting Then
      Label4.Caption = "-Conectando-"
End If

End Sub

#el problema es que siempre queda en conectando.

ayuda plz

hahahaha otra pregunta.

Y existe alguna forma para tener que agregar la MSWINSCK.OCX

porque cuando lo paso a otro pc el server tengo que andar con la MSWINSCK.OCX pa toos laos bueno si alguien me dice como hacerlo se lo agradeceria adios.

Gracias =).

Gracias por tu ayuda _Sergi_  .
Bueno otra preguntita aprovechando que andan de buenas
al presionar en conectar esta todo bien pero si vuelvo a presionar el programa se cae hay alguna forma para que no se cuelgue,lo mismo pasa al escuchar.Bueno adios amigos