正在阅读：巧用Win32 API函数增强VB位操作功能巧用Win32 API函数增强VB位操作功能

2005-09-15 10:14 出处：作者：刘琦责任编辑：moningfeng

二设计思路

1. 实现整形变量的拆分、合并

　　整型变量的拆分、合并是经常要用到的操作，比如IP地址就是一个四字节的双字，有时候为了以点分十进制的方式显示IP地址，就需要单独取出每个字节的值，而有时候为了把点分十进制的IP地址转换为计算机内部的双字，又需要把四个字节组合成一个双字。VB没有提供这样的功能，所以整型变量的拆分、合并也是我们这次要实现的功能。另外整型变量的拆分、合并也是实现Integer、Long类型变量移位的前提条件(后面“分而治之策略”将会提到)，只要实现了整型变量的拆分合并，移位问题就完全解决了。

方法1：利用API函数Copymemory实现

　　在这里笔者利用Win32 API 函数CopyMemory实现了整形变量的拆分、合并操作。在VB中使用API函数必须要声明，CopyMemory函数的声明代码如下：

Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _

(Destination As Any， Source As Any， ByVal Length As Long)

　　其中的参数Destination是目标内存的第一个字节地址，参数Source是被复制内存的第一个字节地址，参数Length是需要复制的字节数。

　　实现原理很简单：要实现拆分，就用CopyMemory函数把一个整形变量的一部分拷贝到另一个更小的整形变量的地址空间中；而实现合并，则利用CopyMemory函数把两个待合并的小变量拷贝到另一个大整形变量的地址空间中。见示例代码：

Public Function Hi(ByVal Word As Integer) As Byte

'取一个字（Word）的高字节（Byte）

'INPUT-------------------------------------------

'Word 字（Word）

'OUTPUT------------------------------------------

'返回值 Word参数的高字节

'Last updated by Liu Qi 2004-3-20。

Dim bytRet As Byte

CopyMemory bytRet， ByVal VarPtr(Word) + 1， 1’把Word的高字节的内容烤入bytRet的地址处

Hi = bytRet’返回结果

End Function

　　根据数据类型的不同需要，笔者共设计了6个函数，HI（）函数用来获得一个单字的高字节，LO（）函数获得单字的低字节，HIWORD（）函数获得双字的高位字，LOWORD（）函数双字的低位字。ＣＯＮ（）函数把两个字节组合成字，CONWORD（）函数把两个字组合成双字。只要把这６个函数组合应用就可以随意的拆分、组合各种整型变量。例如前面提到的ＩＰ地址，ＩＰ地址是用一个ＤＷＯＲＤ类型变量存储的，在ＶＢ中则对应Long类型变量，假设一个ＩＰ地址存储在长整型变量中，就可以这样提取一个ＩＰ地址的最高字节：ＨＩ（ＨＩＷＯＲＤ（lngＩＰ））。

　　由于代码较长，故没有在文章中写出全部代码。