Copy Object by Pointer

zhaozj2021-02-16  65

Private sub pvaddrefme () DIM OUNK AS OLELIB.IUNKNOWN

Set OUNK = Me OUNK.ADDREFSET OUNK = Nothing

End Sub

Public Function ObjectFromPtr (Byval LPtr As Long) As Objectdim OtiS as Object

PvaddRefme CopyMemory, Byval LPTR, 4 & Set ObjectFromPtr = Otis' CopyMemory Othis, Byval 0 &, 4 & End Function

转载请注明原文地址:https://www.9cbs.com/read-17063.html

New Post(0)