Tengo un Richtextbox (Rtb), un CommandButton (Cmd) y un ListBox (Lst)
Al clickear en el Cmd me tiene que insertar cada elemento del Lst al Rtb. El problema es que no pasa esto si no que siempre me muestra el último elemnto del Lst. Creo que el problema es del salto de línea pero no se cómo hacerlo

Acá va el código:

Private Sub Cmd_Click()
Dim x as Integer

For x = 0 To Lst.ListCount - 1
Rtb.TextRTF = Lst.List(x) & vbCrLf
Next x

End Sub

Muchas gracias de antemano

Mira yo no lo he hecho en un richtextbox, solo en un textbox(multiline), lo que hago es lo siguiente :

For x = 0 To Lst.ListCount - 1
text1.text = Lst.List(x)
text1.text = text1.text & vbnewline
Next

la funcion VbNewLine te hace el salto de linea. Esto funciona en un textbox, ojala te sirva

Lo probé pero no funciona, me sigue tirando el último elemento.

Hola,

El problema es que vos asignás a la variable un valor... y luego lo borrás para cargar otro

Código:

Rtb.TextRTF = Lst.List(x) & vbCrLf

Vos tenés que decir que en Rtf.TextRTF almacene lo que ya tenía más lo nuevo.

Código:

Rtb.TextRTF = Rtb.TextRTF & Lst.List(x) & vbCrLf

Saludos



Edited by: Vanchi