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 poderosa por derecho propio . VB6 utiliza algunas de las mismas construcciones de programación , tales como clases, funciones , bucles, sentencias condicionales y matrices. Arrays VB6 se utilizan para almacenar los objetos de valor similar. En aplicaciones de codificación , es posible que tenga que copiar elementos de una matriz a otra , que se pueden lograr con las líneas de código de Visual Basic 6 . Instrucciones
1

abierto Basic 6.
2

Visual 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 va a agregar un módulo de código estándar en su proyecto de VB6 .
4

Escriba o copie y pegue el código siguiente en el módulo .

Public Sub CopyArray ( fromArray As Variant , ToArray As Variant )

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

Si (No IsArray ( fromArray ) ) O (No IsArray ( ToArray ) ) a continuación, salga
Sub < p> lLBound = LBound ( fromArray )

lUBound = UBound ( fromArray )

ReDim ToArray ( lLBound Para lUBound )

Para l = lLBound Para lUBound
< p > ToArray ( l ) = fromArray ( l )

Siguiente

End Sub

Sub TestCopyArry ()

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

TPIR Dim As Integer

i ( 0 ) = 5

i ( 1 ) = 8

i ( 2 ) = 10

CopyArray i , j

Para TPIR = 0 To UBound ( j )

Debug.Print j (TPIR )

Siguiente
< p > End Sub