copiar textbox1 a textbox2 1x1 linea al hacer click en un buttom

[4zt3ca]

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

[Shell Root]

Puedes usar listas,
:https://msdn.microsoft.com/es-es/library/system.windows.forms.listbox%28v=vs.110%29.aspx

[Flamer]

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

[Brian1511]

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! :/

[ivancea96]

Al pulsar el botón, coges del textbox1 la primera linea, y la agregas al textbox2. Luego, la borras del textbox1.

[Brian1511]

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:

Código (vb) [Seleccionar] Expandir


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!

[79137913]

HOLA!!!

Creo que este codigo seria mas acorde a lo que se plantea:

Código (vb) [Seleccionar] Expandir

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

[Brian1511]

Pero si eso esta haciendo lo mismo que yo planteé, xD, pero bueno las dos formas funcionan ñ.ñ

[79137913]

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

[Brian1511]

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.