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.
Vamos a ver :el text1 pasa lo que contiene al tex2 al perder el foco, con minimas variaciones puedes pasarlo al pulsar enter, etc.
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
ultimamente no estoy bien :-\ o no entiendo yo o no se explican bien :huh:
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
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!
gracias amigos :
era esto
Private Sub Command1_Click()
Text1.Text = Text1.Text + vbCrLf + Text2.Text
End Sub
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 ..
Private Sub Text1_Change()
Text1.SelStart = Len(Text1.Text)
End Sub
Gracias compadre