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).
es facil mira a los textbox los llamas txt a todos a hacemos unos arrays.
Private Sub Command1_Click()
Dim i As Long
List1.Clear
For i = 0 To 9
List1.AddItem Txt(i)
Next i
End Sub
No funciona. :-(
como que no as renombrado los 10 textbox por el nombre de txt
¿?
Si lo hize :(.
entonces algo tiene que aver echo mal porque ami se me va :-\
y que error te marca??, :huh:
Hola amigos, escribo este post para decir mas que nada una estupidez pero...
porque no usas este codigo que es mas sencillo:
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 :D
Espero que te sirva hahah
PD: El codigo de WarGhost si me funciono...
Salu2
Ranslsad
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:
for x=1 to 4 do
List1.AddItem Text(x).Text
next x
Mas o menos esa idea...
saludos.
Hola, amigo esa idea me a gustado y e aprendido un nuevo codigo :D
gracias ;)
Salu2
Ranslsad