VB 長整型和字節數組的轉換問題 (Long<>Byte)

Posted by JiaJia 17 March,2009 (0)Comment

用到的API聲明：
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Long2Byte

Dim TempLng As Long
Dim TempBytes(0 To 3) As Byte

TempLng = 2000

#If 方法1 Then
CopyMemory TempBytes(0), TempLng, 4
#ElseIf 方法2 Then
TempBytes(0) = TempLng And &HFF
TempBytes(1) = (TempLng And &HFF00&) / &H100
TempBytes(2) = (TempLng And &HFF0000) / &H10000
TempBytes(3) = (TempLng And &H7F000000) / &H1000000 Or (((TempLng And &H80000000) <> 0) And &H80)
#End If

Byte2Long

Dim l_byte(0 To 3) As Byte '要被轉化的Byte()
Dim l_long As Long '要保存轉化的Long
l_byte(0) = &1F
l_byte(1) = &2F
l_byte(2) = &3F
l_byte(3) = &4F
l_long = "&H" & (CStr(Hex(l_byte(0))) & CStr(Hex(l_byte(1)))) & CStr(Hex(l_byte(2))) & CStr(Hex(l_byte(3)))

?http://yulv.net/catalog.asp?cate=5&page=5

總結

以上是生活随笔為你收集整理的VB 长整型和字节数组的转换问题 (LongByte)的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。