将Long类型转换成Byte字节类型数组及反转

最新推荐文章于 2023-07-05 11:04:58 发布

原创最新推荐文章于 2023-07-05 11:04:58 发布 · 8.6k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#byte #buffer #integer #string

VB6源代码专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一种使用VBA实现长整数与字节缓冲区相互转换的方法。通过调用CopyMemory函数，可以高效地完成类型转换过程。文章提供了具体的示例代码，包括将长整数转换为字节缓冲区以及从字节缓冲区还原长整数的两个子程序。

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