ObjectFromPtr 方法
（创建时间：2012年09月01日 06:15:00）
Jangogo ： 


 

VB
  1. '从对象指针中恢复为对象   
  2. Public Function ObjectFromPtr(ByVal lPtr As Long) As Object  
  3. On Error Resume Next  
  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  

 

用法 set  theObj=MyApp.Extender.ObjectFromPtr( lngObjPointer )

2012年09月01日 06:15
回复(0)分类(1)转发(0)全文打开
文档中心