Hola que tal
si pueden ayudarme se los agradeceria
como? puedo pasr el texto de un textbox multilinea a un textbox
una linea a la vez al hacer click en un boton... me imagino que para ustedes en una tonteria pero si me puedel ayudar se los agradeceria
saludos....(https://imageshack.com/i/idlG8WMFj)
Puedes usar listas,
:https://msdn.microsoft.com/es-es/library/system.windows.forms.listbox%28v=vs.110%29.aspx
no te entendi bien.
Pero si quieres pasar el contenido de un textbox a otro con un solo click solo tienes que poner en el codigo del boton asi:
text2=text1
eso es lo mas simple del mundo
saludos Flamer y es eso lo que querias
No Flamer al parecer no entendiste el quiso decir que cada que preciones el Boton se pase linea por linea el Text1 al Text2, sino es haci pues no se que es lo que quiere, si copiar el Text1 al Text2 o Pasar linea por linea.
deberia de explicarce mejor! :/
Al pulsar el botón, coges del textbox1 la primera linea, y la agregas al textbox2. Luego, la borras del textbox1.
Y no te es mejor usar ListBox? es mucho mejor xD
Pero bueno si eso es lo que necesitas.
Primero para que el Texbox se lea linea por linea Debes ponerlo en Multilinia en la ventana de propiedades.
Una ves echo esto agrega este code en el command1:
Dim Str() As String
Str = Split(Text1.Text, vbNewLine)
If Len(Text2.Text) <> 0 Then
Text2.Text = Text2.Text & vbNewLine & Str(0)
Else
Text2.Text = Text2.Text & Str(0)
End If
Text1.Text = ""
Recuerda que para que este funciones Debes poner los 2 TextBox con el Multiline en True!.
Espero que te siva, ya lo probe y funciono a la perfeccion.
Saludos!
HOLA!!!
Creo que este codigo seria mas acorde a lo que se plantea:
Dim aux() As String
If Text1.Text <> vbNullString Then
aux = Split(Text1.Text, vbNewLine)
If Len(Text2.Text) = 0 Then
Text2.Text = aux(0)
Else
Text2.Text = Text2.Text & vbNewLine & aux(0)
End If
Text1.Text = vbNullString
For x = 1 To UBound(aux)
If x = 1 Then
Text1.Text = aux(x)
Else
Text1.Text = Text1.Text & vbNewLine & aux(x)
End If
Next x
Else
MsgBox ("No hay mas lineas que traspasar")
End If
GRACIAS POR LEER!!!
Pero si eso esta haciendo lo mismo que yo planteé, xD, pero bueno las dos formas funcionan ñ.ñ
HOLA!!!
No realmente, en tu codigo al final colocas Text1.text = "" , esto hace que cuando clickeas solo se traspasa la primera linea y se borra por completo el contenido de text1.text, haciendo imposible seguir migrando las lineas.
GRACIAS POR LEER!!!
Si pero segun entendi el solo queria que la linea #1 del TextBox1 se pasara 1 x 1 al TextBox2, sino para eso solo usaria Textbox1 = Textbox2 y listo.
HOLA!!!
Cita de: 4zt3ca en 20 Febrero 2015, 20:17 PM
...
como? puedo pasr el texto de un textbox multilinea a un textbox
una linea a la vez al hacer click en un boton...
GRACIAS POR LEER!!!
Es verdad xD, Lamento haber enrredado las cosas. :)
Saludos!