sa5068如何连接蓝牙耳机（sa9106怎么连接蓝牙）

1、VBA数组底层结构：

VBA的数组在底层是SafeArray：

'https://docs.microsoft.com/zh-cn/windows/win32/api/oaidl/ns-oaidl-safearraybound?redirectedfrom=MSDN TypeSafeArrayBound cElements As Long '// 该维的长度 lLbound As Long ' // 该维的数组存取的下限，一般为0 End Type 'https://docs.microsoft.com/zh-cn/windows/win32/api/oaidl/ns-oaidl-safearray?redirectedfrom=MSDN Type SafeArray cDims As Integer ' // 数组的维度 fFeatures As Integer ' cbElements As Long ' // 数组元素的字节大小 cLocksas As Long ' pvDataas As Long ' // 数组的数据指针 rgsabound(0)AsSafeArrayBound End Type

如果要取数组的地址，需要用到API函数：

Public Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (ByRef Var() As Any) As Long

VarPtrArray 返回的并不是SafeArray的地址，我们可以进行测试：

Sub TestArray() Dim Arr() As byte ReDim Arr(3) As Byte Dim sa As SafeArray CopyMemory VarPtr(sa), VarPtrArray(Arr), Len(sa) Printf "sa.cDims = %d, sa.cbElements = %d", sa.cDims, sa.cbElements End Sub 输出： sa.cDims = -27936, sa.cbElements = 3994212

从输出可以看出，我们预计的sa.cDims应该=1和sa.cbElements=1并没有出现，显然VarPtrArray(Arr)获取到的还不是Arr的地址。

像c语言这样的语言，是有指针的，VBA数组的底层实现应该是使用了一个指针来引用SafeArray结构，而VarPtrArray(Arr)获取到的应该是指针的地址。

Sub TestArray() Dim Arr() As Byte ReDim Arr(3) As Byte Dim ptr As Long '保存[Arr指针]的地址 CopyMemory VarPtr(ptr), VarPtrArray(Arr), 4 Dim sa As SafeArray CopyMemory VarPtr(sa), ptr, Len(sa) Printf "sa.cDims = %d, sa.cbElements = %d", sa.cDims, sa.cbElements End Sub 输出 sa.cDims = 1, sa.cbElements = 1

从输出可以看出，预计的sa.cDims应该=1和sa.cbElements=1出现了。

进一步测试，从pvDataas 中提取数据，看看获取的数据是否能正确：

Sub TestArray2() Dim Arr() As Byte ReDim Arr(3) As Byte Dim ptr As Long '保存[Arr指针]的地址 Arr(0) = &H88 Arr(1) = &H21 Arr(2) = &H27 Arr(3) = &H99 CopyMemory VarPtr(ptr), VarPtrArray(Arr), 4 Dim sa As SafeArray CopyMemory VarPtr(sa), ptr, Len(sa) Dim b(3) As Byte Dim i As Long For i = 0 To 3 CopyMemory VarPtr(b(i)), sa.pvDataas sa.cbElements * i, sa.cbElements Printf "b(%d) = 0x%x ", i, b(i) Next End Sub 输出： b(0) = 0x88 b(1) = 0x21 b(2) = 0x27 b(3) = 0x99

完全正确。

2、改变SafeArray的pvDataas地址会有什么情况：

既然知道了数组的内存结构，那我们就尝试把pvDataas改变看看会怎么样：

Sub TestArray2() Dim Arr() As Byte ReDim Arr(0) As Byte Dim ptr As Long '保存[Arr指针]的地址 CopyMemory VarPtr(ptr), VarPtrArray(Arr), 4 Dim lValue As Long lValue = &HABCDEF99 Dim plValue As Long plValue = VarPtr(lValue) '修改pvDataas指向lValue CopyMemory ptr 12, VarPtr(plValue), 4 '修改Arr的SafeArrayBound为4 Dim cElements As Long cElements = 4 CopyMemory ptr 16, VarPtr(cElements), 4 Dim sa As SafeArray CopyMemory VarPtr(sa), ptr, Len(sa) Printf "sa.pvDataas = 0x%x, plValue = 0x%x", sa.pvDataas, plValue Dim i As Long For i = 0 To 3 Printf "Arr(%d) = 0x%x ", i, Arr(i) Next End Sub 输出： sa.pvDataas = 0x36ecbc, plValue = 0x36ecbc Arr(0) = 0x99 Arr(1) = 0xef Arr(2) = 0xcd Arr(3)=0xab

定义了一个容量为1的byte数组，但是我把pvDataas的值修改成了1个Long变量的地址，同时也改变了他的SafeArrayBound为4，从输出可以看到，这个数组已经变成了一个容量为4的byte数组。

但是End Sub后，我的电脑测试Excel崩溃，这个和前面讲到的String类型里的情况差不多，到底是什么原因？

3、ReDim Preserve做了什么

我们经常会用ReDim Preserve来改变数组的容量，当然一般都是扩大。扩大的话要更多的内存空间来保存数据，所以应该是要重新分配内存，测试：

Sub TestArray() Dim Arr() As Byte ReDim Arr(3) As Byte Dim ptr As Long '保存[Arr指针]的地址 Dim sa As SafeArray CopyMemory VarPtr(ptr), VarPtrArray(Arr), 4 CopyMemory VarPtr(sa), ptr, Len(sa) Printf "ptr = 0x%x, sa.pvDataas= 0x%x, sa.cDims = %d, sa.cbElements = %d, sa.rgsabound(0).cElements = %d", ptr, sa.pvDataas, sa.cDims, sa.cbElements, sa.rgsabound(0).cElements ReDim Preserve Arr(4) As Byte CopyMemory VarPtr(ptr), VarPtrArray(Arr), 4 CopyMemory VarPtr(sa), ptr, Len(sa) Printf "ptr = 0x%x, sa.pvDataas= 0x%x, sa.cDims = %d, sa.cbElements = %d, sa.rgsabound(0).cElements = %d", ptr, sa.pvDataas, sa.cDims, sa.cbElements, sa.rgsabound(0).cElements End Sub 输出： ptr = 0x16597108, sa.pvDataas= 0x167c3a40, sa.cDims = 1, sa.cbElements = 1, sa.rgsabound(0).cElements = 4 ptr = 0x16597108, sa.pvDataas= 0x167c3790, sa.cDims = 1, sa.cbElements = 1, sa.rgsabound(0).cElements = 5

pvDataas已经改变，重新分配了内存空间。

但是，如果是减小呢？

我本来猜测只要修改sa.rgsabound(0).cElements的值就可以达到减小容量的目的，可测试却同样重新分配了内存：

Sub TestArray() Dim Arr() As Byte ReDim Arr(3) As Byte Dim ptr As Long '保存[Arr指针]的地址 Dim sa As SafeArray CopyMemory VarPtr(ptr), VarPtrArray(Arr), 4 CopyMemory VarPtr(sa), ptr, Len(sa) Printf "ptr = 0x%x, sa.pvDataas= 0x%x, sa.cDims = %d, sa.cbElements = %d, sa.rgsabound(0).cElements = %d", ptr, sa.pvDataas, sa.cDims, sa.cbElements, sa.rgsabound(0).cElements ReDim Preserve Arr(1) As Byte CopyMemory VarPtr(ptr), VarPtrArray(Arr), 4 CopyMemory VarPtr(sa), ptr, Len(sa) Printf "ptr = 0x%x, sa.pvDataas= 0x%x, sa.cDims = %d, sa.cbElements = %d, sa.rgsabound(0).cElements = %d", ptr, sa.pvDataas, sa.cDims, sa.cbElements, sa.rgsabound(0).cElements End Sub 输出： ptr = 0x167d5068, sa.pvDataas= 0x167c3a50, sa.cDims = 1, sa.cbElements = 1, sa.rgsabound(0).cElements = 4 ptr = 0x167d5068, sa.pvDataas= 0x167c37f0, sa.cDims = 1, sa.cbElements = 1, sa.rgsabound(0).cElements = 2

本文使用文章同步助手同步，关注xyjvba，查看更多