More Faster , More VB User
作者：袖梨
2022-07-02
这篇文章是用来解决VB中位操作方面的问题，我想。其实这篇文章我来写有点太显摆，因为其中很多代码不是我的原创，虽然其中很多技术虽然早已用过很多回，但是用到位操作上，特别是利用数组来进行高低位取字（字节）是我没有想到的，这是CSDN qiqi5521的功劳，感谢他的代码。
代码中主要用到了三种技术：
数组技术、指针技术、内嵌汇编技术
这三种技术实际上并不是我们所凭空想出来了，基本上是来源于《Hardcore VB》和《Advanced Visual Basic》两书所提出来的方法。虽然这三种技术在一般的VB教课书上是不会提起的，但是由于它具有一定的实用性，在很多地方，特别是要求速度的地方可以加快代码不少的运行速度。关于具体的技术，我不太想在这篇文章中谈，如果有兴趣可以参考我的Blog: http://blog.111com.net/BlueDog，里面有一个《VB深度下潜》系列，虽然没有写完，但这些技术会陆续提到。
代码、代码、还是代码，对于程序员而言，代码是最好的教课书。代码是我们的生存之道。然而在代码之前，还有几句要说的，在本模块中包括了几个版本的代码，显得有些乱，分别是一般速度、较高速度和最高速版。另外在代码中有两个函数是一定要记得使用，分别是
BitOperatorInit和BitOperatorEnd，这两个函数是分别在位操作前后使用。本模块引用了 WinAPI ANSI Typlib。
来了，代码来了。
建立一个modBit的模块，将以下代码拷入。
Option Explicit
' 版本更新记录
'
' 2004-12-23 增加利用内存共享开发新的函数HiByteFastest ......
' 本版本新增函数利用CSDN上 qiqi5521的代码进行了改进
'
Private Type BIT_WORD
LoByte As Byte
HiByte As Byte
End Type
Private Type BIT_DWORD
LoWord As Integer
HiWord As Integer
End Type
Private Type BIT_DWORD_BYTE
代码中主要用到了三种技术：
数组技术、指针技术、内嵌汇编技术
这三种技术实际上并不是我们所凭空想出来了，基本上是来源于《Hardcore VB》和《Advanced Visual Basic》两书所提出来的方法。虽然这三种技术在一般的VB教课书上是不会提起的，但是由于它具有一定的实用性，在很多地方，特别是要求速度的地方可以加快代码不少的运行速度。关于具体的技术，我不太想在这篇文章中谈，如果有兴趣可以参考我的Blog: http://blog.111com.net/BlueDog，里面有一个《VB深度下潜》系列，虽然没有写完，但这些技术会陆续提到。
代码、代码、还是代码，对于程序员而言，代码是最好的教课书。代码是我们的生存之道。然而在代码之前，还有几句要说的，在本模块中包括了几个版本的代码，显得有些乱，分别是一般速度、较高速度和最高速版。另外在代码中有两个函数是一定要记得使用，分别是
BitOperatorInit和BitOperatorEnd，这两个函数是分别在位操作前后使用。本模块引用了 WinAPI ANSI Typlib。
来了，代码来了。
建立一个modBit的模块，将以下代码拷入。
Option Explicit
' 版本更新记录
'
' 2004-12-23 增加利用内存共享开发新的函数HiByteFastest ......
' 本版本新增函数利用CSDN上 qiqi5521的代码进行了改进
'
Private Type BIT_WORD
LoByte As Byte
HiByte As Byte
End Type
Private Type BIT_DWORD
LoWord As Integer
HiWord As Integer
End Type
Private Type BIT_DWORD_BYTE
