Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 21:19:31

MICROSOFT VOUS PERMET DE TESTER ECMASCRIPT 5 (ES3.1) par FREMYCOMPANY

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

RE : SAUVEGARDE DATASET IMPOSSIBLE par Alastor99

SAUVEGARDE DATASET IMPOSSIBLE par Alastor99

RE : MACRO SANS PASSER PAR LA FORMULE EXCEL par jack

RE : RECHERCHER UN MOT PUIS DONNER UNE VALEUR CORRESPONDANTE SUR LA MêME LIGNE par jack

ACTUALISATION D'UN DOSSIER par PHILOUVB

+ de logiciels à télécharger

1 465 515 membres
554 nouveaux aujourd'hui
15 048 membres club

Trouver une ressource

Trouvez une ressource parmi 40 098 codes, 1 303 355 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

VARPTR DANS VB.NET

Information sur la source

Catégorie :VB.NET

Niveau : Initié Date de création : 16/04/2004 Vu : 5 406

Auteur : tombcore2

Ecrire un message privé

Note :

9,50 / 10

Commentaire sur cette source (5)

Ajouter un commentaire et/ou une note

Description

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

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

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

Sources de la même categorie

UN EDITEUR APPELER MYPAD par DanMor498

EDITEUR DE FICHIERS ENCRYPTER ET ACCÈS PROTÉGÉ par DanMor498

VISUAL BACKUP, SOLUTION DE SAUVEGARDES AUTOMATISÉES par fifrelin70

CALCUL DES JOURS OUVRÉS ET OUVRABLES par jcbouli

ENVOYER DES EMAILS VB 2008 par spqrliv

Toutes les sources de la catégorie VB.NET

Commentaires et avis

Commentaire de chris_brabant le 29/08/2005 10:59:54

pourquoi retourner un entier alors que VarPtr renvoyait un Long ?

Commentaire de Sphaxs le 21/01/2006 00:17:24

Parce que Integer est sur 4 bits en VB DotNet comme les Long en VB6, le Long en Dotnet étant sur 8 bits au lieu de 4 en VB6.
Voilà, voilà ...

Commentaire de pistolero971 le 10/04/2006 21:52:44

Ce code marche bien pour par exemple un Integer... mais ça marche pas dans le cas d'une structure.. je cherche à avoir le pointeur d'une structure sous VB.NET, vous n'auriez pas une idée par hasard?

Commentaire de soundpanther le 26/12/2008 14:31:34 10/10

Merci tombcore2 super

Commentaire de XelectroX le 29/12/2008 13:18:06

Pour une structure, j'ai peut-être une solution :
Runtime.InteropServices.Marshal.StructureToPtr(ByVal structure As Object, ByVal ptr As System.IntPtr, ByVal fDeleteOld As Boolean)
(J'ai pas testé)