对于硬件或者嵌入式设计的程序员来说,对数据进行位操作恐怕是在熟悉不过的了。但是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
运行结果如下:
原文地址:https://www.jb51.cc/vb/260306.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。