如何从 Byte 转换为 BitArray

[bobyang520]

现有一字节数组
dim Status(29) as byte

现在希望读取数组元素的某个位的值

请教大家应该如何实现？

我想到的是：因为 BitArray 使用 Get 方法 返回具体某位的值，但就是不知道用什么样的方法能将字节数组转成位数组

[bobyang520]

Dim b As Byte
b = &H2
Dim b1(0) As Byte
b1(0) = b
Dim ba As New BitArray(b1)
TextBox1.Text = ba.Get(0) ‘值为 False
TextBox2.Text = ba.Get(1) '值为 True


此方法可以将 Byte 数组，转为 BitArray ，然后利用 Get 方法获取某位的值（1 或 0）

对 Byte 数据某位上的值操作，也可采用 位运算

比如：If (b And &H1) = &H1 ’判断最低位是否为 1


我就找到了这两种方法，不知大家是否还有其他更好的，抛砖引玉中……

[cosmo_sei]

位运算是性能最高的，BitArray应该也是用位运算处理的，其实还是一种方法。