VB6功能荟萃.doc

VB6功能荟萃 VB模拟指针模块mPoint.basFile: mPoint.bas Name: VB模拟指针模块 Author: zyl910 Version: V1.2 Updata: 2005-8-28 E-Mail: zyl910@ 功能特点： 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 Curland]VBBoost ===================== NOVBOOST: VBBoost库是否存在 == [zyl910]API 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) Then Public Declare Function VarPtrArray Lib msvbvm60.dll Alias VarPtr (Var() As Any) As Long Public Type SAFEARRAY cDims As Integer 这个数组有几维？ fFeatures As Integer 这个数组有什么特性？ cbElements As Long 数组的每个元素有多大？ cLocks As Long 这个数组被锁定过几次？ pvData As Long 这个数组里的数据放在什么地方？ rgsabound() As SFArrayBOUND End Type Public Type SAFEARRAYBOUND cElements As Long 这一维有多少个元素？ lLbound As Long 它的索引从几开始？ End Type Public Type SAFEARRAY1D cDims As Integer fFeatures As Integer cbElements As Long cLocks As Long pvData As Long cElements As Long 这一维有多少个元素？ lLbound As Long 它的索引从几开始？ End Type Public Const FADF_AUTO As Integer = H1 Public Const FADF_STATIC