将字节数组转换为VB6中的带符号整数

Question

我无法从VB6中的字节数组转换为带符号整数。这在.NET中使用BitConverter很简单，但我不确定如何处理VB6。 谢谢

Answer 1

不幸的是没有内置函数，你需要写一个。这是一个快速入门的例子。

Private Function BArrayToInt(ByRef bArray() As Byte) As Integer 
    Dim iReturn As Integer 
    Dim i As Integer 

    For i = 0 To UBound(bArray) - LBound(bArray) 
     iReturn = iReturn + bArray(i) * 2^i 
    Next i 

    BArrayToInt = iReturn 

End Function 

Answer 2

CopyMemory

航空代码（可能会崩溃您的电脑，导致恐龙的攻击等）。

Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As Any, _ source As Any, ByVal bytes As Long) 

Dim a() As Byte 
Dim n As Integer 
'get the bytes somehow into a() 
CopyMemory n, a(0), 2