关于Byte有认识的朋友请进

Question

有两个Byte型数组，我现在想他们合并成一个数组。不用一个一个添加，请问还有什么好方法快速合并而又不会有错误的？

Answer 1

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Private Sub Command1_Click()Dim byte1(0 To 99) As Byte
Dim byte2(0 To 99) As ByteDim byte3(0 To 199) As ByteCopyMemory ByVal VarPtr(byte3(0)), ByVal VarPtr(byte1(0)), 100
CopyMemory ByVal VarPtr(byte3(100)), ByVal VarPtr(byte2(0)), 100
End Sub

Answer 2

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (DestInatIon As Any, Source As Any, ByVal LENGTH As Long)
CopyMemory Byte1(UBound(Byte1) + 1), Byte2(0), UBound(Byte2) +1

Answer 3

copymemory非常快，但如果算错了系统就垮掉了，小心使用。

Answer 4

学习！
Private Sub Command1_Click()
    Dim byte1(0 To 99) As Byte
    Dim byte2(0 To 99) As Byte
    Dim byte3() As Byte
    Dim s1 As String
    Dim s2 As String
    s1 = byte1
    s2 = byte2
    byte3 = s1 + s2
    Debug.Print UBound(byte3)
End Sub