VB6对象与地址相互转换
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
桂棹兮兰桨,击空明兮溯流光。