Ejemplos usando el Api de windows para Visual basic

121 - CopyMemory - Copiar un Array en otro Array

Volver al Listado Api - Anterior - Siguiente

Este ejemplo utiliza el Api CopyMemory para copiar un Vector llamado Vector1 a otro Vector llamado Vector2.

Esta función es mas rápida que copiar un dato (en este caso un Array) que hacerlo mediante un bucle o directamente por asignación, por ejemplo Vector1 = Vector2

La función requiere de tres parámetros. El primer parámetro es el dato destino, el segundo es el dato a copiar, el tercero es la cantidad en bytes del dato, en este caso el tamaño en bytes del vector.

En el ejemplo se copia un Vector de tipo Integer de 5000 elementos, es decir el vector pesaría 10.000 bytes. Si al tercer parámetro por ejemplo se le pasaría la mitad, 5000 bytes, se copiaría solo la mitad del array o vector. Pero en cambio si le pasamos un valor que es mayor a la cantidad de bytes del array, por ejemplo 12.000 bytes, la función falla, y se cierra el IDE del vb, por lo tanto se debe saber, antes de ejecutar el Api, el valor exacto en bytes del dato a copiar.

Para el ejemplo colocar un Command1 y un Command2. El Command1 llena el Vector1. El Command2 copia el Vector1 en el Vector2.

Nota: este método puede ser interesante para copiar datos grandes para ganar algo de velocidad.

Código fuente en el Formulario

Option Explicit 'Api CopyMemory Private Declare Sub CopyMemory _ Lib "kernel32" _ Alias "RtlMoveMemory" ( _ Destination As Any, _ Source As Any, _ ByVal Length As Long) 'cantidad de elementos para el vector Const nElemento As Integer = 5000 'Vectores Dim Vector1(1 To nElemento) As Integer Dim Vector2(1 To nElemento) As Integer Dim Size As Currency Private Sub Command1_Click() Dim i As Integer 'Tamaño en bytes del Vector. Esta variable _ se pasa en el tercer parámetro del Api CopyMemory Size = CCur(VarType(nElemento)) * nElemento 'Llena el vector1 For i = LBound(Vector1) To UBound(Vector1) Vector1(i) = CInt(i) Next Command2.Enabled = True Command1.Enabled = False End Sub Private Sub Command2_Click() Dim i As Integer 'Copia el Vector1 al Vector2 CopyMemory Vector2(1), Vector1(1), Size MsgBox " Vector1 copiado a Vector2 ", vbInformation 'Imprime el valor del Vector2 For i = LBound(Vector2) To UBound(Vector2) Debug.Print Vector2(i) Next End Sub Private Sub Form_Load() Command1.Caption = " Llenar vector1 " Command2.Caption = " Copiar Vector1 en Vector2" Command2.Enabled = False End Sub

Enlaces relacionados

Buscar en Recursos vb