VB6对象与地址相互转换

weixin_30409849

于 2014-12-30 11:20:00 发布

阅读量118

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/nanfei/p/4193199.html

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
            (lpDest As Any, lpSource As Any, ByVal nCount As Long)

Private Sub Form_Load()
    Dim c As New clsTest
    c.Name = "Hello,World!"
    
    Dim addr As Long
    addr = ObjPtr(c)
    
    Dim c2 As clsTest
    CopyMemory c2, addr, 4

    MsgBox c2.Name
    c2.Name = "haha"

    CopyMemory c2, 0&, 4
End Sub