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

概述对于硬件或者嵌入式设计的程序员来说，对数据进行位 *** 作恐怕是在熟悉不过的了。但是vb6的程序员不难发现，vb没有位 *** 作运算，那么该如何实现呢？ 其实很简单，只要通过与运算就可以轻松获取了。 下面是实现的代码，希望对正在查找相关 *** 作的人一些帮助： 首先，打开VB6 IDE集成开发环境，然后在窗口上拖放一个listbox和button。然后双击button按钮输入代码： 代码如下： Private Fu

对于硬件或者嵌入式设计的程序员来说，对数据进行位 *** 作恐怕是在熟悉不过的了。但是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实现获取字节的任意位状态查询全部内容，希望文章能够帮你解决VB实现获取字节的任意位状态查询所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。