ObjPtr 和 ObjectFromPtr
（创建时间：2012年08月14日 02:03:00）
Jangogo ： 

VB
  1. Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As Any, Src As Any, ByVal l As Long)   
  2.   
  3. Public Function ObjectFromPtr(ByVal lPtr As Long) As Object  
  4. Dim objT As Object  
  5.    If Not (lPtr = 0) Then  
  6.          
  7.       ' Author: Bruce McKinney   
  8.       ' Turn the pointer into an illegal, uncounted interface   
  9.       CopyMemory objT, lPtr, 4   
  10.       ' Do NOT hit the End button here! You will crash!   
  11.       ' Assign to legal reference   
  12.       Set ObjectFromPtr = objT   
  13.       ' Still do NOT hit the End button here! You will still crash!   
  14.       ' Destroy the illegal reference   
  15.       CopyMemory objT, 0&, 4   
  16.       ' End Author Bruce McKinney   
  17.          
  18.    End If  
  19. End Function  
  20.   
  21.   
  22. ''ObjPtr VB自带  
2012年08月14日 02:03
回复(0)分类(1)转发(0)全文打开
文档中心