如何VB转换C代码中的高字和低字

在把C代码翻译成VB时，经常会遇到高位字和低位字的操作，通常是把两个整数值组合成一个长整数。在C代码中使用无符号整数的时候，这个位是可以设置的，所以简单的直接转换高位字符会比较困难。由于VB不支持无符号算术运算符，我们必须去掉这个位，以后再把它加回去，以避免溢出和错误的结果。(WXJ_Lake译)
启动一个新项目，添加一个标准模块。将以下代码写入模块:
启动一个新项目，然后添加一个模块。将以下代码添加到模块中:
Public Property get lo word(ByRef l this As Long)
LoWord =(l this And & HFFFF &)
End Property
Public Property Let LoWord(ByRef l this As Long， ByVal llow ord As Long)
lth this = lth this And Not & HFFFF & Or llow ord
End Property
Public Property Get HiWord(ByRef lth this As Long)
If(lth this And & h 800000000)= & h 8000000 Then
HiWord =((lth this And & h 7 fff 0000)& h 10000)Or & h 8000 &[/br