VB6 數組拼接與下標重排：使用 MemoryCopy 高效實現下標前移

場景

刪除數組中間段後，需將後段元素前移，使下標連續。

方法對比

CopyMemory 示例

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Dest As Any, Source As Any, ByVal Length As Long)

Dim arr(1 To 100) As Long
' 刪除 30-40，將 41-100 前移到 31-90
Dim srcOffset As Long, dstOffset As Long, count As Long
srcOffset = 41: dstOffset = 31: count = 60
CopyMemory arr(dstOffset), arr(srcOffset), count * 4 ' 4 字節/Long
' 縮小數組
ReDim Preserve arr(1 To 90)

注意

• CopyMemory 僅適用於定長數值類型數組，字符串、變體、對象數組不可用。
• 內存重疊時 RtlMoveMemory 正確處理（同 memmove）。