SoloCodigo
CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: saintis en Miércoles 11 de Octubre de 2006, 01:46
-
me podrian decir que error tengo es logico pero ya me trave y soy nuevo en esto
dim ar() as integer
dim a as integer
dim d as integer
dim c as integer
button
a=textbox1.text
for b=0 to a
ar(d)= c+1
listbox1.items.add(ar(d))
next
-
Hola haber si no me equivoco primeramente tendrías que redimensionar el vector una vez que le pasas lo del textbox1 a la variable a:
a=Cint(text bobx1.text) 'convertimos a tipo Integer ya que la variable es de ese tipo
redim ar(a)
Recuerda que si a vale 5, tendrás un vector de 6 elementos.
Ahora en el button pon:
a=textbox1.text
redim ar(a)
for b=0 to a
ar(B)= c+1
listbox1.items.add(ar(d))
next
En todos los elementos vas a tener la misma info. Nos vemos :hola:
Tumbes - Perú
-
si no me equivoco, cuando se utiliza el REDIM, eso egectivamente redimensiona el vector, pero tambien hace perder el contenido.
para solucionar ese problemam te va esta solucion.
Redim Preserve ar(a).
Espero y te sirva.
BYTE