VB“变态”用法之有用技术和没用指针_VB.NET程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

VB“变态”用法之有用技术和没用指针

作者：闵涛文章来源：闵涛的学习笔记点击数：619 更新时间：2009/4/23 15:03:21

　　Bill McCarthy在那篇《Modify a Varialbe's Pointer》里用SafeArray实现多进程的数组共享内存，他考虑了数组变量的类型，因此可以兼容大部分数值类型的数组，是一个非常不错的东西。我这里不讲它实现的具体方法，只是想和大家一起看看SafeArray还能做什么。

　　修改SafeArray结构的pvData指针却是一个非常有用的技术，通过修改pvData，就能够通过数组直接访问指定的内存。

　　和上一篇文章包装字串指针类一样，通过修改pvData，我们也可以包装一些普通数值类型变量的指针类。

　　我在指针的第一篇文章里说过，要想实现C语言里'*'这个取指针所指变量值功能，必须要用CopyMemory。实际上，我说错了，我们完全可以实现和C里一样的指针，如下：

//C语言
Long L;
Long* pL = &L;
*pL = 12;
printf("L = %d *pL = %d", l, *pl);
'VB里
Dim pL As New pLong, L As Long
pL.Attach L
'也可以 pL.Ptr = VarPtr(L)
pL = 12
Debug.Print "L ="; L; " *pL ="; pL
　　结果都能够通过修改pL指针，达到修改变量L的目的。

　　上面VB代码里的pLong就是一个包装好的Long型变量的指针类，下面看看如何来实现它：

Option Explicit
'********************************************************
'pLong.cls
'包装一个Long型指针的类
'作者: 熊超 ID: AdamBear 2002年3月18日
'http://www.csdn.net/Author/AdamBear
' 你可以自由使用本类模块，不过请保留本声明
'********************************************************

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

Private m_Arr(0) As Long

'缺省属性
Public Property Get Data() As Long
Data = m_Arr(0)
End Property

Public Property Let Data(ByVal Value As Long)
m_Arr(0) = Value
End Property

Public Sub Attach(Target As Long)
Ptr = VarPtr(Target)
End Sub

Public Property Let Ptr(ByVal Target As Long)
Dim pSA As Long

'得到SafeArray结构指针pSA
CopyMemory pSA, ByVal VarPtrArray(m_Arr), 4
'这个指针偏移12个字节后就是pvData指针
CopyMemory ByVal (pSA + 12), Target, 4

End Property

Public Property Get Ptr() As Long
Ptr = m_SA.pvData
End Property

Private Sub Class_Terminate()
CopyMemory ByVal VarPtrArray(m_Arr), 0&, 4
End Sub
　　要将它改成Byte的指针类，只需要将上面的代码中m_Arr数组的类型，Data属性和Attach方法中的参数类型改为Byte型即可。

　　当我们这样做出pLong、pByte、pInteger后，我们就能够玩点和C里一样的花样了。

Sub Main()
Dim pB As New pByte, B As Byte
Dim pI As New pInteger, I As Integer
Dim pL As New pLong, L As Long

'用Attach方法将经过类型检查，直接用Ptr属性则可以绕过类型检查
pB.Attach B
pI.Attach I
pL.Attach L

'试试指针
B = 1
Debug.Print "B ="; B; " *pB ="; pB

pB = 1
Debug.Print "B ="; B; " *pB ="; pB

I = 1000
Debug.Print "I ="; I; " *pI ="; pI

pI = 2000
Debug.Print "I ="; I; " *pI ="; pI

L = 40000
Debug.Print "L ="; L; " *pL ="; pL

pL = 60000
Debug.Print "L ="; L; " *pL ="; pL

'试试C里的类型转换
'用Integer指针访问Long型变量
pI.Ptr = VarPtr(L)
Debug.Print "*pI ="; pI

End Sub
　　搞出这几种普通数值类型的指针类有什么用？基本上没有什么大用。不过是证明一种方法的可行性，和演示技术。这种技术还有什么用，需要的时候还会再谈。

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程： VB“变态”用法之高效字串指针类

下一篇教程： Visual Basic6.0网络编程的五大散手

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……