VB实现获取字节的任意位状态查询

前端之家收集整理的这篇文章主要介绍了VB实现获取字节的任意位状态查询前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

对于硬件或者嵌入式设计的程序员来说,对数据进行位操作恐怕是在熟悉不过的了。但是vb6的程序员不难发现,vb没有位操作运算,那么该如何实现呢?

其实很简单,只要通过与运算就可以轻松获取了。

下面是实现的代码,希望对正在查找相关操作的人一些帮助:

首先,打开VB6 IDE集成开发环境,然后在窗口上拖放一个listBox和button。然后双击button按钮输入代码

代码如下:


Private Function GetBit(ByVal Value As Long,ByVal Position As Integer)As Boolean
If (Value And (2 ^ Position)) = 0
Then
GetBit =
False
Else
GetBit =
True
End If


End Function

Private Sub Command1_Click()
Dim a
As Byte
a = 187
For i = 0 To 7
Me.List1.AddItem IIf(GetBit(a,i),1,0)
Next i
End Sub

运行结果如下:

猜你在找的VB相关文章