Varptr dans vb.net

Commenter

Contenu du snippet

Bonjour, comme vous le savez certainement, la fonction VarPtr() très utilise pour un dévellopement avancé d'applications avec Visual Basic à été enlevé de la version .NET

Je viens d'obtenir cette version hier, et j'ai été dans l'impossibilité pour pouvoir porter mon programme à cause de ça.

Tout d'abord je précise que ce code n'est pas de moi( lol avec seulement jour de . Net derrière mois c'est un peu dur quand même). Je l'ai récupéré ici : "http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=463&lngWId=10"

Voilà, cette fonction n'est peut être pas aussi rapide, mais elle simule le VarPtr() de Visual Basic.

Source / Exemple : 


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

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.