1、获取对象实例私有域的地址(ObjPtr函数)
text1.text=ObjPtr(text1)
2、获取字符串首字符的地址(StrPtr函数)
text2.text=StrPtr(text1.text)
3、获取变量的地址(VarPtr函数)
Dim i as Integer
MsgBox VarPtr(i)
4、获取数组地址(ArrayPtr函数)
Dim i(10) as Integer
text1.text=ArrayPtr(i)
5、获取自定义过程/函数的地址
通过创建包装函数并使用AddressOf关键字即可获得该过程的地址。
已经有(0)位网友发表了评论,你也评一评吧!
原创文章如转载,请注明:转载自Eddy Blog
原文地址:http://www.rrgod.com/program/178.html 欢迎订阅Eddy Blog。