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, MsgBox c2.Name
c2.Name = "haha" CopyMemory c2, &,
End Sub
相关文章
- VB6对象与地址相互转换
- 路由其实也可以很简单-------Asp.net WebAPI学习笔记(一) ASP.NET WebApi技术从入门到实战演练 C#面向服务WebService从入门到精通 DataTable与List
相互转换 - JQuery对象和DOM对象的区别与转换
- Objective-C:Objective-C 和 Core Foundation 对象相互转换的内存管理
- Objective-C 和 Core Foundation 对象相互转换的内存管理总结
- JS 时间与时间戳的相互转换
- Json对象与Json字符串互转(4种转换方式)
- GIT版本控制 — GIT与SVN的相互转换 (三)
- JSON对象和string的相互转换
- jquery对象和dom对象的相互转换