CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Arreglos

(1/1)

saintis:
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

Cajami:
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ú

lencho:
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

Navegación

[0] Índice de Mensajes