Pregunta tonta y facil plz

[n3ts4mura1]

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.

[whiskises]

Vamos a ver :el text1 pasa lo que contiene al tex2 al perder el foco, con minimas variaciones puedes pasarlo al pulsar enter, etc.

Código [Seleccionar] Expandir


Private Sub Text1_LostFocus()
Text2.Text = Text2.Text + vbCrLf + Text1.Text
Text1.Text = ""
Text1.SetFocus
End Sub


Y un consejo: Buscate un manual de visual basic, concretamente aki

http://foro.elhacker.net/index.php/topic,68352.0.html

puedes encontrar mucho de lo que necesitas.
Yo entiendo que es mas facil preguntar a ver si alguien te lo hace , pero cuando eres tu el que lo construye te aseguro que la satisfacción es mucho mayor.
Salu2

[elmaro]

ultimamente no estoy bien o no entiendo yo o no se explican bien

lo que tu keires saber es como escribir en un textbox y que al acer enter te mande el texto acia el otro textbox pero en lineas diferntes???

si es eso aca te dejo un ejemplo
prueba esto(lleva 2 textbox, nombrados x tefecto, el text2 debe tener en true la opcion multiline y los scrollbars

Código [Seleccionar] Expandir


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then 'si se apreta intro
Text2.Text = Text2.Text & Text1.Text & vbCrLf
Text1.Text = ""
End If
End Sub


espero que te sirva,. cualkier cosa preguntas






El MaRo!

[n3ts4mura1]

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

[n3ts4mura1]

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 ..

[Mad Antrax]

Private Sub Text1_Change()
Text1.SelStart = Len(Text1.Text)
End Sub

[n3ts4mura1]

Gracias compadre