COMO REDIMENSIONAR UN ARRAY, REDIM
Hola a todos aqui os traigo un ejemplo sencillo de como redimensionar un Array y conservar los datos que ya tiene
Pues bien es algo muy sencillo. para ello vamos a utilizar la siguentes declaraciones REDIM PRESERVE para conservar los datos que tenemos y aumentar en 1 la dimension del array
Veamos el ejemplo comentado:
1 2 3 4 5 6 |
Dim arr(-1) As String 'Array sin dimensiones de String Dim i = 44 'Numero de dimensiones que va a tener el array cuando lo vaya a redimensionar For z As Integer = 0 To i ReDim Preserve arr(UBound(arr) + 1) 'UBOUND especifica el maximo y le añadimos 1 arr(UBound(arr)) = i 'Con ubound volvemos a obtener el maximo y ya le asignamos el valor Next |
Y ya lo tenemos, espero que os sirva y ya sabeis, si os gusto compartelo, y comenta