begin process at 2010 02 09 22:48:18
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

VB.NET

 > VARPTR DANS VB.NET

VARPTR DANS VB.NET


 Information sur la source

Note :
9,5 / 10 - par 2 personnes
9,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :VB.NET Source .NET ( DotNet ) Niveau :Initié Date de création :16/04/2004 Vu :5 820
Auteur : tombcore2

Ecrire un message privé
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/Show Code.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

Source avec Zip Source avec une capture Source .NET (Dotnet) INSERER TOUT TYPE DE FICHIERS DANS ORACLE EN VB.NET par SKY32
Source avec Zip Source avec une capture Source .NET (Dotnet) ENVOYER DES EMAILS AVEC PIECES JOINTES EN EXÉCUTANT BLAT par mays
Source avec Zip Source avec une capture Source .NET (Dotnet) PILOTER DES AFFICHEURS 7 SEGMENTS À PARTIR DU PORT SÉRIE OU ... par mays
Source avec Zip Source avec une capture Source .NET (Dotnet) CONTROLER LE WEBBROWSER ET IDENTIFIER LES LIENS PAR LEUR NUM... par george02
Source avec Zip Source .NET (Dotnet) LOGIN AVEC FICHIER XML par DanMor498
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é)

 Ajouter un commentaire

Nos sponsors


Sondage...

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,468 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)