BitArray类管理一个紧凑的位值数组，表示为布尔值，其中true表示该位为on(1)，false表示该位为off(0)。
当需要存储比特位，但是事先不知道比特数时使用可使用BitArray类。可以使用从零开始的整数索引来访问BitArray集合中的项目。
BitArray类的属性和方法
下表列出了BitArray类的一些常用属性：
| 编号 | 属性 | 描述 |
|---|---|---|
| 1 | Count |
获取BitArray中包含的元素的数量。 |
| 2 | IsReadOnly |
获取一个值，指示BitArray是否是只读。 |
| 3 | Item |
获取或设置BitArray中指定位置的位的值。 |
| 4 | Length |
获取或设置BitArray中的元素数量。 |
下表列出了BitArray类的一些常用方法：
| 编号 | 方法 | 描述 |
|---|---|---|
| 1 | Public Function And (value As BitArray) As BitArray |
针对指定的BitArray中的相应元素，对当前BitArray中的元素执行按位AND运算。 |
| 2 | Public Function Get (index As Integer) As Boolean |
获取BitArray中特定位置的位的值。 |
| 3 | Public Function Not As BitArray |
反转当前BitArray中的所有位值，以便将设置为true的元素更改为false，将设置为false的元素更改为true。 |
| 4 | Public Function Or (value As BitArray) As BitArray |
对当前BitArray中的元素对指定的BitArray中的相应元素执行按位或操作。 |
| 5 | Public Sub Set (index As Integer, value As Boolean ) |
将BitArray中特定位置的位设置为指定值。 |
| 6 | Public Sub SetAll (value As Boolean) |
将BitArray中的所有位设置为指定的值。 |
| 7 | Public Function Xor (value As BitArray) As BitArray |
针对指定的BitArray中的相应元素，对当前BitArray中的元素执行按位异或操作。 |
示例
以下示例演示BitArray类的使用：
Imports System
Imports System.Collections
Imports Microsoft.VisualBasic
Public Class SamplesBitArray
Public Shared Sub Main()
' Creates and initializes two BitArrays of the same size.
Dim myBA1 As New BitArray(4)
Dim myBA2 As New BitArray(4)
myBA1(0) = False
myBA1(1) = False
myBA1(2) = True
myBA1(3) = True
myBA2(0) = False
myBA2(2) = False
myBA2(1) = True
myBA2(3) = True
' Performs a bitwise XOR operation between BitArray instances of the same size.
Console.WriteLine("Initial values")
Console.Write("myBA1:")
PrintValues(myBA1, 8)
Console.Write("myBA2:")
PrintValues(myBA2, 8)
Console.WriteLine()
Console.WriteLine("Result")
Console.Write("XOR:")
PrintValues(myBA1.Xor(myBA2), 8)
Console.WriteLine()
Console.WriteLine("After XOR")
Console.Write("myBA1:")
PrintValues(myBA1, 8)
Console.Write("myBA2:")
PrintValues(myBA2, 8)
Console.WriteLine()
' Performing XOR between BitArray instances of different sizes returns an exception.
Try
Dim myBA3 As New BitArray(8)
myBA3(0) = False
myBA3(1) = False
myBA3(2) = False
myBA3(3) = False
myBA3(4) = True
myBA3(5) = True
myBA3(6) = True
myBA3(7) = True
myBA1.Xor(myBA3)
Catch myException As Exception
Console.WriteLine("Exception: " + myException.ToString())
End Try
End Sub
Public Shared Sub PrintValues(myList As IEnumerable, myWidth As Integer)
Dim i As Integer = myWidth
Dim obj As [Object]
For Each obj In myList
If i <= 0 Then
i = myWidth
Console.WriteLine()
End If
i -= 1
Console.Write("{0,8}", obj)
Next obj
Console.WriteLine()
End Sub 'PrintValues
End Class
执行上面示例代码，得到以下结果 -
F:\worksp\vb.net\collection>vbc MyBitArray.vb
Microsoft (R) Visual Basic Compiler version 14.0.1038
for Visual Basic 2012
Copyright (c) Microsoft Corporation. All rights reserved.
This compiler is provided as part of the Microsoft (R) .NET Framework, but only supports language versions up to Visual Basic 2012, which is no longer the latest version. For compilers that support newer versions of the Visual Basic programming language, see http://go.microsoft.com/fwlink/?LinkID=533241
F:\worksp\vb.net\collection>MyBitArray.exe
Initial values
myBA1: False False True True
myBA2: False True False True
Result
XOR: False True True False
After XOR
myBA1: False True True False
myBA2: False True False True