VB 长整型和字节数组的转换问题 (LongByte)

最新推荐文章于 2022-01-24 15:37:57 发布

可爱的小莱

最新推荐文章于 2022-01-24 15:37:57 发布

阅读量4.8k

点赞数

分类专栏： VB6开发文章标签： vb byte hex api

本文链接：https://blog.csdn.net/jiftlixu/article/details/5388019

版权

VB6开发专栏收录该内容

12 篇文章 2 订阅

订阅专栏

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 )))