Question

VB 中如何将long型数组转化为byte型数组

VB 中如何将long型数组转化为byte型数组

Answer 1

将Long类型转换成Byte字节类型数组及反转
Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Dim Buffer(3) As Byte
Private Sub LngToBin_Click()
Dim i As Integer
Dim hexData As String
Dim a As Long
a = Val(Text1)
CopyMemory Buffer(0), a, 4
For i = 0 To UBound(Buffer)
Debug.Print Buffer(i)
Next
End Sub
Private Sub BinToLng_Click()
Dim sinStr As String
Dim sinSj As Long
Dim i As Integer
CopyMemory ByVal VarPtr(sinSj), ByVal VarPtr(Buffer(0)), 4
Text2 = sinSj
End Sub
Private Sub Form_Load()
Text1 = ""
Text2 = ""
End Sub

Answer 2

不知道你转成BYTE干什么，LONG如果大于255是不能直接转换的，你可以通过序列化转换成BYTE数组

Answer 3

这是MSDN 的例子：
Dim aDouble As Double
Dim aByte As Byte
aDouble = 125.5678
' The following line of code sets aByte to 126.
aByte = CByte(aDouble)