Die VarPtr-Funktion liefert die Startadresse des Speicherbereichs zurück, in dem eine Variable gespeichert wird.
Diese Funktion gibt es in VB6 jedoch nicht mehr in VB.NET. Allerdings kann man diese Funktion aus Kompatibilitätsgründen noch gebrauchen.
Public Function VarPtr(ByVal e As Object) As Integer
Dim GC As GCHandle = GCHandle.Alloc(e, GCHandleType.Pinned)
Dim GC2 As Integer = GC.AddrOfPinnedObject.ToInt32
GC.Free()
Return GC2
End Function
Kommentare zum Snippet