begin process at 2012 02 13 19:11:20
  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 :7 336
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 .NET (Dotnet) MODIFICATION DATE DE WINDOWS EN VB.NET ET VBA par us_30
Source avec Zip Source avec une capture Source .NET (Dotnet) ENVOI DE MAIL AVEC PIÈCE JOINTE par EhJoe
Source .NET (Dotnet) AMUSONS NOUS AVEC UN LABEL ^^ par Adn56
Source avec Zip Source avec une capture Source .NET (Dotnet) UN NAVIGATEUR INTERNET EN VB.NET par azrti
Source avec Zip Source .NET (Dotnet) CONVERSION DE DEVISE MONAITAIRE VIA UN SERVICE WEB par bigmonkey7
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 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Renewable Energy is Within Reach
Photo vieux tracteur et phare de l'ile de Batz 

Visiter la photothèque
 
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,842 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)