VB6中的指针模块（VB、指针）

最新推荐文章于 2025-06-21 09:28:41 发布
最新推荐文章于 2025-06-21 09:28:41 发布
阅读量3k 收藏 3
点赞数
CC 4.0 BY-SA版权
文章标签： vb integer function byte ide exe
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/sandy_zc_1/article/details/2114157
本文介绍了一个可以在VB6中实现指针操作的模块，支持Byte、Integer、Long和Boolean等基本数据类型的指针操作，可用于大量密集数据处理，如图像运算。通过简单的API调用即可完成指针的创建、设置和释放。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

////既然决定要重新启用这个blog，那么就找点以前的东西贴上来充实下内容吧^_*

VB6中的指针模块

关键词： VB   VB6   指针   模块

很久以前写的一个可以在VB6中实现指针的模块，用于对大量密集数据进行操作（比如per Pixel的图像运算）。

标准支持Byte，Integer，Long，Boolean，四种数据类型的指针，当然还可以很容易修改成为其它类型。 方便程度还行， 速度很快（当然前提要编译成本地EXE），在大量数据运算或密集内存访问的时候还是非常有用的。

 

 

'=============================================================================================================
'================                     *****   VB6 Pointer Module    *****                   ===================
'================                     You can use the pointer like in VC                   ===================
'================                          Copyright: sandy_zc_1                           ===================
'================                     #### Email:sandy_zc_1@163.com ####                   ===================
'=============================================================================================================
'=============================================================================================================
'================                     *****      VB6 指针模块       *****                   ===================
'================                          你可以像在VC中一样使用指针                      ===================
'================                          版权所有： sandy_zc_1                           ===================
'================                     #### Email:sandy_zc_1@163.com ####                   ===================
'=============================================================================================================


Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Public Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Var() As Any) As Long





'--------------------------------
'－－VB指针结构－－－－－－－－－
Public Type t_Pointer_Long1  '－－－－－－－－－－－－－－－－－Long型指针
    Inited1 As Boolean      '－是否已初始化
    Type1 As Long           '－类型
    PAddress1() As Long        '－指针数据
    PValue1() As Long         '－指向的数据  （*操作符）
    bkPAddrOrg1 As Long     '－系统：释放用数据1 （原PAddr地址）
    bkPValOrg1 As Long      '－系统：释放用数据2 （原PVal地址）
End Type

Public Type t_Pointer_Integer1   '－－－－－－－－－－－－－－－Integer型指针
    Inited1 As Boolean      '－是否已初始化
    Type1 As Long           '－类型
    PAddress1() As Long        '－指针数据
    PValue1() As Integer      '－指向的数据  （*操作符）
    bkPAddrOrg1 As Long     '－系统：释放用数据1 （原PAddr地址）
    bkPValOrg1 As Long      '－系统：释放用数据2 （原PVal地址）
End Type

Public Type t_Pointer_Byte1   '－－－－－－－－－－－－－－－－－Byte型指针
    Inited1 As Boolean      '－是否已初始化
    Type1 As Long           '－类型
    PAddress1() As Long        '－指针数据
    PValue1() As Byte       '－指向的数据  （*操作符）
    bkPAddrOrg1 As Long     '－系统：释放用数据1 （原PAddr地址）
    bkPValOrg1 As Long      '－系统：释放用数据2 （原PVal地址）
End Type

Public Type t_Pointer_Boolean1   '－－－－－－－－－－－－－－－Boolean型指针
    Inited1 As Boolean      '－是否已初始化
    Type1 As Long           '－类型
    PAddress1() As Long        '－指针数据
    PValue1() As Boolean       '－指向的数据  （*操作符）
    bkPAddrOrg1 As Long     '－系统：释放用数据1 （原PAddr地址）
    bkPValOrg1 As Long      '－系统：释放用数据2 （原PVal地址）
End Type



'-------------------------------Long指针操作
Function InitPointerLong1(pL1 As t_Pointer_Long1)
    Dim PP1 As Long, tmpP1 As Long
    Dim pAddrSt1 As Long, pValSt1 As Long
    
    ReDim pL1.PAddress1(0 To 0) As Long
    ReDim pL1.PValue1(0 To 0) As Long
    
    pL1.Type1 = vbLong
    
    PP1 = VarPtrArray(pL1.PAddress1)
    CopyMemory pAddrSt1, ByVal PP1, 4
    
    PP1 = VarPtrArray(pL1.PValue1)
    CopyMemory pValSt1, ByVal PP1, 4
    
    CopyMemory pL1.bkPAddrOrg1, ByVal (pAddrSt1 + 12), 4
    CopyMemory pL1.bkPValOrg1, ByVal (pValSt1 + 12), 4
    
    tmpP1 = pValSt1 + 12
    
    CopyMemory ByVal (pAddrSt1 + 12), tmpP1, 4
    
    pL1.Inited1 = True
End Function
Function SetPointerLong1(pL1 As t_Pointer_Long1, ByRef Target1 As Long)
    pL1.PAddress1(0) = VarPtr(Target1)
End Function

Function FreePointerLong1(pL1 As t_Pointer_Long1)
    Dim PP1 As Long, pAddrSt1 As Long
    pL1.PAddress1(0) = pL1.bkPValOrg1
    
    PP1 = VarPtrArray(pL1.PAddress1)
    CopyMemory pAddrSt1, ByVal PP1, 4
    
    CopyMemory ByVal (pAddrSt1 + 12), pL1.bkPAddrOrg1, 4
    pL1.Inited1 = False
End Function

'-----------------------------Integer指针操作

Function InitPointerInteger1(pI1 As t_Pointer_Integer1)
    Dim PP1 As Long, tmpP1 As Long
    Dim pAddrSt1 As Long, pValSt1 As Long
    
    ReDim pI1.PAddress1(0 To 0) As Long
    ReDim pI1.PValue1(0 To 0) As Integer
    
    pI1.Type1 = vbInteger
    
    PP1 = VarPtrArray(pI1.PAddress1)
    CopyMemory pAddrSt1, ByVal PP1, 4
    
    PP1 = VarPtrArray(pI1.PValue1)
    CopyMemory pValSt1, ByVal PP1, 4
    
    CopyMemory pI1.bkPAddrOrg1, ByVal (pAddrSt1 + 12), 4
    CopyMemory pI1.bkPValOrg1, ByVal (pValSt1 + 12), 4
    
    tmpP1 = pValSt1 + 12
    
    CopyMemory ByVal (pAddrSt1 + 12), tmpP1, 4
    
    pI1.Inited1 = True
End Function
Function SetPointerInteger1(pI1 As t_Pointer_Integer1, ByRef Target1 As Integer)
    pI1.PAddress1(0) = VarPtr(Target1)
End Function

Function FreePointerInteger1(pI1 As t_Pointer_Integer1)
    Dim PP1 As Long, pAddrSt1 As Long
    pI1.PAddress1(0) = pI1.bkPValOrg1
    
    PP1 = VarPtrArray(pI1.PAddress1)
    CopyMemory pAddrSt1, ByVal PP1, 4
    
    CopyMemory ByVal (pAddrSt1 + 12), pI1.bkPAddrOrg1, 4
    pI1.Inited1 = False
End Function

'-----------------------------Byte指针操作

Function InitPointerByte1(pByte1 As t_Pointer_Byte1)
    Dim PP1 As Long, tmpP1 As Long
    Dim pAddrSt1 As Long, pValSt1 As Long
    
    ReDim pByte1.PAddress1(0 To 0) As Long
    ReDim pByte1.PValue1(0 To 0) As Byte
    
    pByte1.Type1 = vbByte
    
    PP1 = VarPtrArray(pByte1.PAddress1)
    CopyMemory pAddrSt1, ByVal PP1, 4
    
    PP1 = VarPtrArray(pByte1.PValue1)
    CopyMemory pValSt1, ByVal PP1, 4
    
    CopyMemory pByte1.bkPAddrOrg1, ByVal (pAddrSt1 + 12), 4
    CopyMemory pByte1.bkPValOrg1, ByVal (pValSt1 + 12), 4
    
    tmpP1 = pValSt1 + 12
    
    CopyMemory ByVal (pAddrSt1 + 12), tmpP1, 4
    
    pByte1.Inited1 = True
End Function
Function SetPointerByte1(pByte1 As t_Pointer_Byte1, ByRef Target1 As Byte)
    pByte1.PAddress1(0) = VarPtr(Target1)
End Function

Function FreePointerByte1(pByte1 As t_Pointer_Byte1)
    Dim PP1 As Long, pAddrSt1 As Long
    pByte1.PAddress1(0) = pByte1.bkPValOrg1
    
    PP1 = VarPtrArray(pByte1.PAddress1)
    CopyMemory pAddrSt1, ByVal PP1, 4
    
    CopyMemory ByVal (pAddrSt1 + 12), pByte1.bkPAddrOrg1, 4
    pByte1.Inited1 = False
End Function

'-----------------------------Boolean指针操作

Function InitPointerBoolean1(pBool1 As t_Pointer_Boolean1)
    Dim PP1 As Long, tmpP1 As Long
    Dim pAddrSt1 As Long, pValSt1 As Long
    
    ReDim pBool1.PAddress1(0 To 0) As Long
    ReDim pBool1.PValue1(0 To 0) As Boolean
    
    pBool1.Type1 = vbBoolean
    
    PP1 = VarPtrArray(pBool1.PAddress1)
    CopyMemory pAddrSt1, ByVal PP1, 4
    
    PP1 = VarPtrArray(pBool1.PValue1)
    CopyMemory pValSt1, ByVal PP1, 4
    
    CopyMemory pBool1.bkPAddrOrg1, ByVal (pAddrSt1 + 12), 4
    CopyMemory pBool1.bkPValOrg1, ByVal (pValSt1 + 12), 4
    
    tmpP1 = pValSt1 + 12
    
    CopyMemory ByVal (pAddrSt1 + 12), tmpP1, 4
    
    pBool1.Inited1 = True
End Function
Function SetPointerBoolean1(pBool1 As t_Pointer_Boolean1, ByRef Target1 As Boolean)
    pBool1.PAddress1(0) = VarPtr(Target1)
End Function

Function FreePointerBoolean1(pBool1 As t_Pointer_Boolean1)
    Dim PP1 As Long, pAddrSt1 As Long
    pBool1.PAddress1(0) = pBool1.bkPValOrg1
    
    PP1 = VarPtrArray(pBool1.PAddress1)
    CopyMemory pAddrSt1, ByVal PP1, 4
    
    CopyMemory ByVal (pAddrSt1 + 12), pBool1.bkPAddrOrg1, 4
    pBool1.Inited1 = False
End Function


 

使用方法很简单，添加到VB6的工程中去，若需要一个Byte型指针，就定义一个 t_Pointer_Byte类型变量，然后调用InitPointerByte1把它初始化一下，就可以当指针用了。

要让它指向某个Byte变量a只需调用SetPointerByte1，把它和a传过去就可以。当然可以直接操作它的PAddress1(0)成员值来直接指定它指向的位置。获得指向区域的值(*运算)只需要访问它的PValue1(0)成员即可。

使用完成后不要忘了调用FreePointerByte1释放指针（不然VB6的IDE可能会崩掉）就OK了。其它类型的指针使用方法一模一样。

呵呵这样VB6中就可以很方便的使用指针了，当然这样调试的话要学会养成和C程序员一样先保存的习惯哟，毕竟使用指针相对来说还是比较危险的，IDE崩掉了没来得及保存代码别怪我啊，呵呵。

简单例子：

 

Sub Test1()
Dim p as t_Pointer_Byte1,a as Byte

InitPointerByte1(p) '初始化p
SetPointerByte1(p,a) '让p指向a
'这里可以试试指针的效果了：
p.PValue1(0)=10 '把指针指向的地方值设为10
debug.Print a '看看a的值变了没有
FreePointerByte1 (p) '释放p
End Sub


 

很久以前的代码了，因为觉得差不多够用，也没有做过进一步的改进。有意见或问题的可以留言。

 

 

sandy_zc_1
关注
在VB6中使用指针：字节的计算
04-26 3996
版权声明：可以任意转载，转载时请务必以超链接形式标明如下文章原始出处和作者信息及本声明作者：xixi出处：http://blog.csdn.net/slowgrace/archive/2009/04/26/4124347.aspx本文主要来自此帖的讨论，感谢unsigned、Soyokaze、Chen8013、Tiger_Zhao、m60a1、myjian、PctGL等朋友的指
VB中利用CopyMemory使用指针
wjb9921的专栏
08-19 2718
　　一、指针是什么？ 　　不需要去找什么标准的定义，它就是一个32位整数，在C语言和在VB里都可以用Long类型来表示。在32位Windows平台下它和普通的32位长整型数没有什么不同，只不过它的值是一个内存地址，正是因为这个整数象针一样指向一个内存地址，所以就有了指针的概念。 　　有统计表明，很大一部分程序缺陷和内存的错误访问有关。正是因为指针直接和内存打交道，所以指针一直以来被看成一个危险的东
VB6.0数据库操作：编程实现主键的打开与关闭
最新发布
weixin_42315569的博客
06-21 682
在VB6.0中，ADO连接对象的CursorType属性定义了Recordset的游标类型，影响了Recordset如何浏览数据以及如何通过一些命令和属性对数据进行操作。有几种游标类型可供选择，每种都有其特定的使用场景和限制：：这是一个仅向前的游标，默认值。它只允许单向地从第一行到最后一行滚动，且通常支持快速遍历。：静态游标，提供了一张快照，显示记录集在打开时的数据快照，即使底层数据发生变化，快照也不会变。
VB 6.0 利用CopyMemory实现 指针功能
Liumei_1122的博客
09-10 368
工作需要，要用VB写一个接口程序，其中要把浮点型转成Byte数组，用到了一个API，先记录下来，以后C#中可能会用到同样的功能。 PrivateDeclareSubCopyMemoryLib"kernel32"Alias"RtlMoveMemory"(ByValDestinationAsLong,ByValSourceAsLong,ByValLen...
VB6的函数指针传递
weixin_30429201的博客
12-30 336
Option Explicit Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lPara...
VB6常用模块
07-13
个人常用的报表，数据库操作类的VB模块，每个模块都标有用法 1、四舍五入函数(VB本身的有问题，而且这个支持小数位数为负数) 2、一维数组排序 3、数组去重复 4、将变量转化为SQL语句的字段值，文本加单引号数字就不加单引号 5、整理字符串，去除连续字符，仅保留N个 6、取指定范围内不重复的随机数序列集合 7、把总额(指定的小数位数)按范围随机拆分，个数不定 8、API等待，不会造成假死，精确到毫秒 9、ReportX排版置标题 10、reportx删除选定行 11、reportx写入记录集recordset 12、recordset写入reportx，带自动最佳列宽
VB模拟指针模块mPoint.bas
zyl910的专栏
05-24 3895
File:      mPoint.basName:      VB模拟指针模块Author:    zyl910Version:   V1.2Updata:    2005-8-28E-Mail:    zyl910@sina.com功能&特点：1.是在栈中建立模拟指针的。这样就允许 递归、多线程2.允许编译优化。且这种模拟指针构造方法是 在栈中建立、编译优化 的情况下最快
VB6中指针技术、回调函数
yiyiyicz的专栏
03-16 4227
 VB6中回调函数的使用方法 http://www.bianceng.cn/vbjc/sfjs/sf11.htm 文章中，有一个用回调函数控制窗口--枚举窗口 ----WIN32API中有一个EnumWindows函数，只要给它提供一个回调函，它就会枚举出系统中所有顶级窗口，每枚举一个窗口调用一次回调函数，利用EnumWindows传递的窗口句柄，回调函数就可以了解这些窗口的标题、类名
vb6内联汇编，调用函数指针，不注册调用com
wy24789的专栏
02-21 3609
vb6执行汇编代码一般是使用CallWindowProc，这个方法有参数限制，内部还会执行一些其它调用再到函数指针，我用它调用com里面的“DllGetClassObject”函数时居然出错了，不知道怎么回事，于是乎寻求其它办法，用vc写个dll调用函数指针挺好用的，可惜多了个dll文件。后来采取修改vb模块内函数代码，用AddressOf获取vb函数地址后，再用VirtualProtect修改权
最简单的VB指针
weixin_33979745的博客
03-03 156
      用过VB写过点程序的朋友都知道，涉及到内存地址访问的时候，CopyMemory这个API是少他不了的。的确用了这个API给死板的VB带来了不少的灵活性，然而仅仅作为一个内存读写的指令，却要要用API函数来实现，其中的开销自然不言而喻。难道不用API，VB就没有别的办法访问内存了吗？当然不是！       在C里面，与指针这个东西最相似的当然就是数组，当你把数组的索引超过了其自身的长度...
vb 指针的操作
tangyanzhi1111的专栏
08-10 3569
VB指针教程1 '先理解下变量的地址与指向这个地址的值。xx省xx市xx街xx号就是一个地址， '指向这个地址的值就是这个地址就有什么。比如这个地址是张三家的地址， '张三的家有什么呢？这个有什么就是这个地址所指向的值。 'VB没用操作指针的语言特性，因此需要通过WinAPI函数来进行操作，下面我们将 '演示一个非常简单的指针操作，让大家在VB使用指针有个基本的了解。
VB6指针修改数组,多种方法变量赋值速度对比
01-07
相关技术：如果有个共享变量a(100) as long,可以把数组的指针取出来，然后传到类中，再用 指针.value(0)这样读写，速度会慢一倍，还能接受。 不知道有什么办法修改变量的指针 【活跃】大唐 13:22:05 vb还没有案例 dim a as long ,dim b as long ,c as long, 在VB6里面，如何把B,C的地址改成A的，达到读写3个变量都是相同结果 类.***=33，操作这样的函数，过程，或者共享变量，都会慢个几倍 【新提醒】【VB6】在VB6里实现“指针类型”——像C语言的[]那样用()来读写内存中的数组！ - 技术宅的结界 - Powered by Discuz! https://www.0xaa55.com/forum.php?mod=viewthread&tid=10948
VB6指针技术大揭秘.doc
03-13
VB6指针技术大揭秘
VC6里面的字节数组指针转VB6地址
10-03
本实验代码.清晰的阐释了. 在VC里面的字节数组指针,传递到VB6里面,如何通过LONG 的变量来接受, 便于VC6工程转VB6工程使用.对于数组指针拷贝不熟悉的朋友也可以参考. 代码都是我亲自测试!非常棒.!
VB6开发接口模块插件的例子.rar
07-10
VB6.0编写开发模块的一个例子，这个模块的解释和class1一样，大家如果看懂了class1，就懂这个模块了。这个模块只不过是class1的一个复制品，不过这里实现的是form2。OwnerInterface.RequestOperation OwnerClass, Text1.Text '和调用的对象通信，其实就是调用了他的方法而已，本来调用的应该是ICommClass的RequestOperation方法，但是因为frmtest中实现了他的方法，所以为调用frmtest中的RequestOperation，OwnerInterface.RequestOperation OwnerClass, Text1.Text 和调用的对象通信，其实就是调用了他的方法，还请注意：onconnection 不是IAddInInterface里的方法了，而是TestAddin.Class1的onconnection。 　　ICommClass.cls模块是用来通信用的，用来给调用的类实现接口用的，没有其他的用处，但是也不能少 　　Public Sub RequestOperation(pInst As IAddInInterface, Operation As String) 　　 MsgBox "执行到了这里 RequestOperation方法" '注意，因为这个方法被实现接口，所以，这里永远不会被执行 　　End Sub 　　Public Sub AddinStatusMessage(pInst As IAddInInterface, sMessage As String) 　　 Debug.Print "执行到了这里 AddinStatusMessage方法" '注意，因为这个方法被实现接口，所以，这里永远不会被执行 　　End Sub
VB实现指针功能
05-17
通过对内存的读写，实现其他语言的指针功能，本实例为详细代码加注释，易学易懂。
VB6中的指针位移运算——无符号长整数加减法的实现
04-27 6080
版权声明：可以任意转载，转载时请务必以超链接形式标明如下文章原始出处和作者信息及本声明作者：xixi出处：http://blog.csdn.net/slowgrace/archive/2009/04/27/4130448.aspx本文来自这个帖子的讨论，感谢Tiger_Zhao、Soyokaze、unsigned、Chen8013等的指点。API函数中常常需要用到指针（内存地址
VB6.0超级模块函数.GetProcessModuleHandleByPid得到目标进程的模块地址-用PID
追逐光芒，追随内心
09-28 639
Public Function GetProcessModuleHandleByPid(ByVal GamePid As String, ByVal ModuleName As String) As Long Dim pr As PROCESSENTRY32 Dim lp As Long Dim mo As MODULEENTRY32 Dim LM As Long Dim i As .
VB6中的类
klima的博客
10-09 1223
整理一下VB6中的类，给初学者一个容易看懂的关于类的说明。
评论 5
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值