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
Per chi come me, qualche volta ,è costretto a ritornare al caro e vecchio vb6, e sente la mancanza del mitica rotellina del mouse;mamma microsoft ha realizzato un fantastico addin (scaricabile da qui) che permette di utilizzarla nel IDE di VB6.
Ulteriori info si possono reperire qui.
Ciao a tutti e Good Coding.