VB6功能荟萃

VB6功能荟萃VB模拟指针模块mPoint.basFile: mPoint.basName: VB模拟指针模块Author: zyl910Version: V1.2Updata: 2005-8-28E-Mail: 功能&特点：1.是在栈中建立模拟指针的。这样就允许 递归、多线程2.允许编译优化。且这种模拟指针构造方法是 在栈中建立、编译优化 的情况下最快的3.能像C/C+的指针一样将指针当数组用4.允许负向寻址。这样有助于图像卷积处理、缩放旋转5.允许元素大小与步长不同。（Byte可以，好像Single不行）6.与VBBoost库兼容。VBBoost库的ArrayOwner是用轻量级对象实现的，使用起来很方便，但不太适合大量数据处理时（如图像处理）的复杂寻址需求及速度需求注意：1.String、Object都是引用型数据类型。除非你非常了解，否则不要轻易使用。2.初始化地址时，别直接改SAFEARRAY1D.pvData修改地址，应该使用Ptr属性。这样具有通用性3.别迷信Ptr属性。循环中可以利用地址的连续性优化代码（直接修改SAFEARRAY1D.pvData）Option Explicit# Const 常数 # 全局编译常数 #请在工程属性对话框设置“条件编译参数”= Matthcw CurlandVBBoost =NOVBOOST: VBBoost库是否存在= zyl910API Library =IncludeAPILib: 引用了API库，此时不需要手动写API声明# Win32 API #Private Declare Sub CopyMemory Lib kernel32.dll Alias RtlMoveMemory (Destination As Any, Source As Any, ByVal Length As Long)#If NOVBOOST And (IncludeAPILib = 0) ThenPublic Declare Function VarPtrArray Lib msvbvm60.dll Alias VarPtr (Var() As Any) As LongPublic Type SAFEARRAY cDims As Integer 这个数组有几维？ fFeatures As Integer 这个数组有什么特性？ cbElements As Long 数组的每个元素有多大？ cLocks As Long 这个数组被锁定过几次？ pvData As Long 这个数组里的数据放在什么地方？ rgsabound() As SFArrayBOUNDEnd TypePublic Type SAFEARRAYBOUND cElements As Long 这一维有多少个元素？ lLbound As Long 它的索引从几开始？End TypePublic Type SAFEARRAY1D cDims As Integer fFeatures As Integer cbElements As Long cLocks As Long pvData As Long cElements As Long 这一维有多少个元素？ lLbound As Long 它的索引从几开始？End TypePublic Const FADF_AUTO As Integer = &H1Public Const FADF_STATIC As Integer = &H2Public Const FADF_EMBEDDED As Integer = &H4Public Const FADF_FIXEDSIZE As Integer = &H10Public Const FADF_RECORD As Integer = &H20Public Const FADF_HAVEIID As Integer = &H40Public Const FADF_HAVEVARTYPE As Integer = &H80Public Const FADF_BSTR As Integer = &H100Public Const FADF_UNKNOWN As Integer = &H200Public Const FADF_DISPATCH As Integer = &H400Public Const FADF_VARIANT As Integer = &H800Public Const FADF_RESERVED As Integer = &HF008#End If #If NOVBOOST Then#功能：构造模拟指针参数：pArray:数组的SafeArray结构的地址（VarPtrArray(数组名)的返回值）。必须是空的动态数组SA:某个SAFEARRAY1D，用于保存模拟指针描述ItemSize:数组元素的长度（所占字节，如Byte型为1），允许元素大小与步长不同lLbound:数组的下界cElements:数组的项目数（上界 = 下界 + 项目数 - 1）返回值：是否成功Public Function MakePoint(ByVal pArray As Long, _ ByRef SA As SAFEARRAY1D, ByVal ItemSize As Long, _ Optional ByVal lLbound As Long = 0, _ Optional ByVal cElements As Long = &H7FFFFFFF) As Boolean If pArray = 0 Then Exit Function With SA .cDims = 1 .fFeatures = FADF_AUTO Or FADF_FIXEDSIZE .cbElements = ItemSize .cLocks = 0 .pvData = 0 .lLbound = lLbound .cElements = cElements End With CopyMemory ByVal pArray, VarPtr(SA), 4 MakePoint = True End Function功能：释放模拟指针参数：pArray:数组的SafeArray结构的地址（VarPtrArray(数组名)的返回值）返回值：是否成功Public Function FreePoint(ByVal pArray As Long) As Boolean If pArray = 0 Then Exit Function CopyMemory ByVal pArray, 0&, 4 FreePoint = True End Function设置模拟指针的地址参数：SA：某个模拟指针的SafeArray结构Public Property Get Ptr(ByRef SA As SAFEARRAY1D) As Long Ptr = SA.pvData - SA.lLbound * SA.cbElementsEnd PropertyPublic Property Let Ptr(ByRef SA As SAFEARRAY1D, ByVal RHS As Long) SA.pvData = RHS + SA.lLbound * SA.cbElementsEnd Property取得数组的维数Public Function GetArrayDims(ByVal pArray As Long) As Integer Dim pSA As