Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: n3ts4mura1 en 27 Julio 2006, 11:50 am



Título: Pregunta tonta y facil plz
Publicado por: n3ts4mura1 en 27 Julio 2006, 11:50 am
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.


Título: Re: Pregunta tonta y facil plz
Publicado por: whiskises en 27 Julio 2006, 18:24 pm
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:
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


Título: Re: Pregunta tonta y facil plz
Publicado por: elmaro en 27 Julio 2006, 18:41 pm
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

Código:
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!


Título: Re: Pregunta tonta y facil plz
Publicado por: n3ts4mura1 en 28 Julio 2006, 01:34 am
gracias amigos :
era esto
Private Sub Command1_Click()
Text1.Text = Text1.Text + vbCrLf + Text2.Text
End Sub


Título: Re: Pregunta tonta y facil plz
Publicado por: n3ts4mura1 en 28 Julio 2006, 21:52 pm
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 ..


Título: Re: Pregunta tonta y facil plz
Publicado por: Mad Antrax en 29 Julio 2006, 00:44 am
Private Sub Text1_Change()
 Text1.SelStart = Len(Text1.Text)
End Sub


Título: Re: Pregunta tonta y facil plz
Publicado por: n3ts4mura1 en 30 Julio 2006, 01:59 am
Gracias compadre