Cómo copiar matrices dinámicas en VB6

Visual Basic 6 (VB6) es un lenguaje de programación de Microsoft. El lenguaje se deriva del lenguaje de programación BASIC originales. VB6 es mucho más simple que otros lenguajes de programación, pero es de gran alcance en su propio derecho. VB6 utiliza algunas de las mismas construcciones de programación, tales como clases, funciones, bucles, sentencias condicionales y matrices. VB6 matrices se utilizan para almacenar objetos de valor similar. En las aplicaciones de codificación, es posible que tenga que copiar los elementos de una matriz a otra, lo que se puede lograr con líneas de código VB6.

Instrucciones

1 Abra Visual Basic 6.

2 Seleccione "EXE estándar" de la nueva lista de proyectos.

3 Ir a la barra de menú superior. Haga clic en "Proyecto" y "Agregar módulo". Este proceso le agregará un módulo de código estándar en su proyecto de VB6.

4 Escribe o copia y pega el código siguiente en el módulo.

Public Sub CopyArray (fromArray Como variante, ToArray como variante)

Dim l As Long, lUBound As Long, lLBound As Long

Si (No IsArray (fromArray)) O (No IsArray (ToArray)) Then Exit Sub

lLBound = LBound (fromArray)

lUBound = UBound (fromArray)

ReDim ToArray (lLBound Para lUBound)

Para l = lLBound Para lUBound

ToArray(l) = FromArray(l)

Siguiente

End Sub

TestCopyArry sub ()

Dim i (2) As Integer, j () As Integer

Dim TPIR como número entero

i (0) = 5

i (1) = 8

i (2) = 10

CopyArray i, j

Para TPIR = 0 Para UBound (j)

Debug.Print j (TPIR)

Siguiente

End Sub