de un txt a un list

[sp26]

Usteds saben como pasar lo que esta escrito en un txtbox a un listbox?


Son 10 txtbox, y los quiero pasar a un listbox (Seria con un boton para agregar).

[WarGhost]

es facil mira a los textbox los llamas txt a todos a hacemos unos arrays.

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Dim i As Long
List1.Clear
For i = 0 To 9
List1.AddItem Txt(i)
Next i
End Sub

[sp26]

No funciona. 

[WarGhost]

como que no as renombrado los 10 textbox por el nombre de txt
¿?

[sp26]

Si lo hize .

[WarGhost]

entonces algo tiene que aver echo mal porque ami se me va 

[CeLaYa]

y que error te marca??,

[ranslsad]

Hola amigos, escribo este post para decir mas que nada una estupidez pero...
porque no usas este codigo que es mas sencillo:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
List1.AddItem Text1.Text
List1.AddItem Text2.Text
List1.AddItem Text3.Text
List1.AddItem Text4.Text
End Sub


Bueno es mas chapuza pero funciona bien y nunca falla

Espero que te sirva hahah

PD: El codigo de WarGhost si me funciono...

Salu2

Ranslsad

[skapunky]

Código [Seleccionar] Expandir

Private Sub Command1_Click()
List1.AddItem Text1.Text
List1.AddItem Text2.Text
List1.AddItem Text3.Text
List1.AddItem Text4.Text
End Sub

Esto lo puedes mejorar poniendo una estrucutra de repeticion  algo asi:

Código [Seleccionar] Expandir


for x=1 to 4 do
List1.AddItem Text(x).Text
next x


Mas o menos esa idea...
saludos.

[ranslsad]

Hola, amigo esa idea me a gustado y e aprendido un nuevo codigo
gracias

Salu2

Ranslsad