如何VB轉(zhuǎn)換C代碼中的高字和低字

2019-11-18 17:51:11

字體：大中小

供稿：網(wǎng)友

->　　當把C代碼翻譯到VB時，你經(jīng)常會遇到高字和低字的操作，通常是把兩個整型值合成一個長整型。當在C代碼中使用了無符號整型，這最高一位是可以被設(shè)置的，因此簡單的直接轉(zhuǎn)換高字將會遇到困難。由于VB不支持無符號算術(shù)符，我們只好剝?nèi)ミ@最高一位，在稍后再把它加回來，以避免溢出和錯誤的結(jié)果。（WXJ_Lake譯）

開始一個新工程，增添一個標準模塊。把以下代碼寫入模塊：
StartanewPRojectthenaddamodule.Addthefollowingcodetothemodule:

PublicPropertyGetLoWord(ByReflThisAsLong)AsLong
　LoWord=(lThisAnd&HFFFF&)
EndProperty

PublicPropertyLetLoWord(ByReflThisAsLong,ByVallLoWordAsLong)
　lThis=lThisAndNot&HFFFF&OrlLoWord
EndProperty

PublicPropertyGetHiWord(ByReflThisAsLong)AsLong
　If(lThisAnd&H80000000)=&H80000000Then
　　　HiWord=((lThisAnd&H7FFF0000)/&H10000)Or&H8000&
　Else
　　　HiWord=(lThisAnd&HFFFF0000)/&H10000
　EndIf
EndProperty

PublicPropertyLetHiWord(ByReflThisAsLong,ByVallHiWordAsLong)
　If(lHiWordAnd&H8000&)=&H8000&Then
　　　lThis=lThisAndNot&HFFFF0000Or((lHiWordAnd&H7FFF&)*&H10000)Or&H80000000
　Else
　　　lThis=lThisAndNot&HFFFF0000Or(lHiWord*&H10000)
　EndIf
EndProperty->

上一篇：一些字符串操作的問題和回答

下一篇：如何由兩個ASC碼（區(qū)位碼）復原成一個漢字？