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)
文档中心
Copyright © 2000-2016 粤ICP05021785号
地址：广州市天河区员村二横路8号全丰商业大厦808室 邮编：510600