从Bitarray(不是字节数组)复制到另一个Bitarray

Question

我需要从Bitarray(不是字节数组)复制到另一个Bitarray。Bitarray1.CopyTo(Bitarray2, 26)不工作，正确的方法是什么?

Answer 1

普通的for循环如何:

For i As Integer = 0 To Bitarray1.Length - 1
    Bitarray2(i + 26) = Bitarray1(i)
Next

Answer 2

CopyTo(destinationArray, StartIndex)如果你把26，它会尝试复制，从26位，你必须使用0(位数组总是基于零)从数组的开始得到一切copyTo也只能复制到一个数组，要想把它变回一个bitarray你需要创建一个新的

Dim AnArray as Array     
Bitarray1.CopyTo(anArray, 0) 
Dim BitArray2 As New BitArray(Anarray)