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

相关文章

精彩推荐