Lazos FOR NEXT

[imported_Juan_Suede]

Hola , estaba tratando de hacer una prueba con lazos for next y lo ke no puedo lograr es ke aparezan lineas ke digan p/ej " Esta es la linea 1 de un fornext" y abajo otra ke diga "esta es la linea 2 " etc.

este ejercicio lo probe en un form y me salio Bien , miren:

dim mensaje1,mensaje2, mensajefin as string
show

for i = 1 to 10

mensaje1= "esta es la linea  "
mensaje2= "  de un lazo for next"
mensajefin= mensaje1 &  i & mensaje2

print mensajefin

next i

end sub

en cambio trato de hacerlo con un texbox donde aparezca el lazo y un boton de comando y no me
sale solo me aparece la ultima linea (la 10) como hago para ke me aparezcan Todas las lineas?

lo hice asi:

Private Sub Command1_Click()
Dim mensaje, mensaje1, mensajefin As String

For i = 1 To 10

mensaje = " esta es la linea "
mensaje1 = " de este lazo"
mensajefin = mensaje & i & mensaje1

Text1.Text = mensajefin

Next i
End Sub

Que estoy haciendo mal?

Gracias y Saludos!

JUAN[CODE]

[Fede]

Aparece la ultima linea nada mas porque cada vez que se ejecuta un ciclo estas poniendo el texto como el que tiene mensajefin, en realidad aparece, pero se cambia tan rapido que no lo vez. Lo que tendrias que poner es algo tipo text1.text = text1.text & " | " & mensajefin y ahi te van a quedar todas.

[Kremar]

un cambio a tu aporte: en vez de "|" , pone vbCrLf , que es un enter

[DarkHeart]

SI le pones un enter vas a tener el mismo drama, a no ser que utilice otro control como una caja de edicion.

[imported_Juan_Suede]

Muchas Gracias!!

[Kremar]

ah, y al textbox metele MULTILINE=TRUE !!!
jejeje, sino vas a ver dos palitos chotos.

[imported_Juan_Suede]

Gracias Kremar , lo probe y anduvo fantastico ,no sabia esa funcion!

Saludos!!

[Kremar]

es una propiedad... tambien podes ahora usar la propiedad SCROLLBARS.

[imported_Juan_Suede]

no , la funcion Vbcrlf , las scrollbars ya las habia puesto ,jeje


Gracias!

[Kremar]

ah, jajaja
es una constante!!!
es como poner chr$(10) +chr$(13), creo...