发展历史

在Basic语言演变成QBasic，然后到Visual Basic之前，VarPtr函数就已经存在了。开始，这个函数存在于VB运行库1.0版中。通过声明可以调用这个函数：

Declare Function VarPtr Lib "vbrun100.dll" (Var As Any) As Long

数年之后，vbrun100.dll变成了msvbvm50.dll，但该函数的入口点却还在那儿。为了获取变量的地址，只须将变量名传递给该函数就行了。例如：

Dim l As Long
Debug.Print VarPtr(l)

类似地，为了获取字符串的指针，而非保存字符串的变量的指针，只须在变量名前加上ByVal即可。如：

Debug.Print VarPtr(s),VarPtr(ByVal s)

在VB3之前，用这种方法来获取字符串缓冲的指针是非常普遍的。但在VB4却遇到了一点麻烦。

ANSI/UNIDCODE问题

随着32位世界和VB4的到来，我们迈进了一半是UNICODE，一半是ANSI的Windows世界。而在此之前，是ANSI一统天下。在VB中，所有字符串按UNICODE保存，但所有的API调用却仍使用ANSI字符串。这就要求在调用API函数之前，将字符串从UNICODE转换成ANSI，函数执行结束后，将返回的字符串从ANSI转换成UNICODE。虽然大多数时候这种转换对用户来说是透明的，但这就使利我们不能将一个字符串类型的参数以UNICODE方式从VB传递给DLL。类似地，任何包含有字符串的结构在执行API调用时，也必须经过这种双重转换。

这种差异是如何影响VarPtr函数的呢？当一个字符串传递给VarPtr函数时，函数执行后所返回的地址是保存临时ANSI字符串的临时ANSI字符串或变量的地址。换句话说，这个地址并不是你声明的变量的真正地址。因此，对于字符串变量以及包括字符串的结构来讲，这个函数一点用也没有。

VB5来解决问题

为了能VarPtr能重新发挥作用，VB5（及Office97）加入了三个针对VBA类型库的入口点。这些入口点为VarPtr函数提供了内置的声明。这三个函数的作用是：

VarPtr：返回变量地址

StrPtr：返回真正的UNICODE字符串缓冲区的地址

ObjPtr：返回任何对象变量引用的地址

下面是这三个函数的具体用法。

StrPtr该函数主要用来产生高效的UNICODE API调用。

在VB4，UNICODE形式的API函数的调用必须借助于Byte数组，例如：

Declare Sub MyUnicodeCall Lib "MyUnicodeDll.dll" (pStr as Byte)

Sub MakeCall (MyStr as String)

Dim bTmp() as Byte
bTmp=MyStr & vbNullChar
MyUnicodeCall bTmp(0)
MyStr=bTmp
MyStr=left(MyStr, Len(MyStr)-1)

End Sub

如果使用StrPtr，上面的代码精简为：

Declare Sub MyUnicodeCall Lib "MyUnicodeDll.dll" (pStr as Byte)

Sub MakeCall (MyStr as String)

MyUnicodeCall StrPtr(MyStr)

End Sub

VarPtr/StrPtr/ObjPtr的执行速度非常非常快，因此调用UNICODE函数所赞成有系统负担实际上小于调用相对应的ANSI函数。因为前者不需进行转换。

StrPtr还能用于优化ANSI API函数的调用。在调用时使用StrConv和StrPtr就能避免将一个字符串变量多资传递给函数以及为每个调用而执行转换操作所造成的系统负担。例如原来的：

Declare Sub MyAnsiCall Lib "MyAnsiDll.dll" (ByVal pStr As String)

MyAnsiCall MyStr

现在变为：

Declare Sub MyAnsiCall Lib "MyAnsiDll.dll" (ByVal pStr As Long)

MyStr=StrConv(MyStr,vbFromUnicode)
MyAnsiCall StrPtr(MyStr)
MyStr=StrConv(MyStr,vbUnicode) 注释：并不总是要求

StrPtr还是唯一能直观地告诉你空字符串和null字符串的不同的方法。对于null字符串(vbNullString)，StrPtr的返回值为0，而对于空字符串，函数的返回值为非零。

VarPtr该函数能与要求包含有UNICODE字符串的结构的API调用一起使用。

如果将一个MyUDTVariable变量（一个自定义类型的变量）传递给一个由ByRef UDTParam As MyUDT定义的参数，就会发生ANSI/UNICODE之间的转换。但是，如果将VarPtr(MyUDTVariable)传递给由ByVal UDTParam As Long定义的参数，则不会发生这样的转换。

有一点需要特别注意，在VB中指针的算法非常重要。此外，你必须计算元素的大小，因为VB不会帮你完成这项工作。你还必须处理缺乏无符号长整型数据类型的问题。下面的函数实现了无符号算法

Function UnsingedAdd (ByVal Start As Long, ByVal Incr As Long) As Long

Const SignBit As Long = &H80000000
UnsignedAdd=(Start Xor SignBit) + Incr Xor SignBit

End Function

ObjPtr该函数返回由对象变量引用的接口指针。

由于大多数对象都支持多重接口，因此搞清楚地址对应的是对象的哪一个接口就非常重要了。通常个函数用来放在集合中的对象。通过创建基于对象地址的关键字，你就可以在不需要启遍历整个集合中所有元素的情况下，轻松地将对象从集合中删除。在许多情况下，对象地址是唯一可靠的能作为关键字的东西，示例如下：

ObjCol.Add MyObj1,CStr(ObjPtr(MyObj1))

.....

ObjCol.Remove CStr(ObjPtr(MyObj1))
VarPtr函数取的是首地址,当类型为数组时,则放回ARRAY(0)号元素所在的地址. 

应用实例

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
Destination As Any, _
Source As Any, _
ByVal Length As Long)

Private Sub EX1()
Dim a(100) As Byte
Dim b() As Byte
Dim ptr1 As Long, ptr2 As Long

a(3) = 234
ReDim b(UBound(a))
ptr1 = VarPtr(a(0))
ptr2 = VarPtr(b(0))
CopyMemory ByVal ptr2, ByVal ptr1, UBound(a)
Ens sub

'執行後 b(3) 之內容也會是 234，也就是 a() = b()
=========


應用2
=========
Public Declare Function CreateThread Lib "kernel32" ( _
lpThreadAttributes As Any, _
ByVal dwStackSize As Long, _
ByVal lpStartAddress As Long, _
ByVal lpParameter As Long, _
ByVal dwCreationFlags As Long, _
lpThreadId As Long) As Long

Call CreateThread(Null, ByVal O&, AddressOf Module1.OutText1, VarPtr(0), ByVal 0&, threadid1)
'參數一，lpThreadAttributes ，線程安全屬性，傳遞為NULL
'參數二，dwStackSize ，線程堆棧大小，可以為0，表示堆棧和此應用堆棧相同
'參數三，lpstartAddress ，執行函數地址，用AddressOf 獲取
'參數四，lpParameter ，執行函數的參數地址，可以是一個記錄或者是別的類型，用VarPtr獲取參數地址（varptr為未公開函數）！！
'參數五，dwCreationFlags ，表示線程創建後的狀態！，0表示立即運行，create_SUSPENDED表示線程掛起
'參數六，lpThreadID ，表示分配給線程的線程號

可看到 VarPtr(0)，因為沒要傳入參數所以填 VarPtr(0)
亦可填直接填 0

解說:
Module1.OutText1 是一個宣告的執行序函數
如果其原形是
Sub OutText1(ParamArray ArrayValue())
.....
End sub
那就可以這麼用

Parameter(0) = a
Parameter(1) = b
Call CreateThread(Null, ByVal O&, AddressOf Module1.OutText1, VarPtr(Parameter(0)), ByVal 0&, threadid1)