Un piccolo tip per emulare la VarPtr di VB6 in .net in modo di facilitare la conversione delle applicazioni VB6.
Public Function
VarPtr(ByVal o As Object) As Integer
Dim
GC As System.Runtime.InteropServices.GCHandle = System.Runtime.InteropServices.GCHandle.Alloc(o, System.Runtime.InteropServices.GCHandleType.Pinned)
Dim
ret As Integer = GC.AddrOfPinnedObject.ToInt32
GC.Free()
Return
ret
End Function
Print | posted on martedì 7 marzo 2006 19:26