Discussion :

[medkarim]

Voici une petite dll ecrite en C qui permet de déréférencer et référencer (je crois c'est le terme )

Pour ceux qui utilise les api windows, ca permet d'eviter les lourdeurs de la fonction copymemory.

Déclaration

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Declare Function getByte Lib "<chemin_dll>\pointer.dll" (ByVal p As Long) As Byte
Private Declare Sub setByte Lib "<chemin_dll>\pointer.dll" (ByVal newval As byte, ByVal p As Long)
 
Private Declare Function getInteger Lib "<chemin_dll>\pointer.dll" (ByVal p As Long) As Integer
Private Declare Sub setInteger Lib "<chemin_dll>\pointer.dll" (ByVal newval As Long, ByVal p As Long)
 
 
Private Declare Function getLong Lib "<chemin_dll>\pointer.dll" (ByVal p As Long) As Long
Private Declare Sub setLong Lib "<chemin_dll>\pointer.dll" (ByVal newval As Long, ByVal p As Long)
 
Private Declare Function getSingle Lib "<chemin_dll>\pointer.dll" (ByVal p As Long) As single
Private Declare Sub setSingle Lib "<chemin_dll>\pointer.dll" (ByVal newval As Single, ByVal p As Long)
 
Private Declare Function getDouble Lib "<chemin_dll>\pointer.dll" (ByVal p As Long) As Double
Private Declare Sub setDouble Lib "<chemin_dll>\pointer.dll" (ByVal newval As Double, ByVal p As Long)

utilisation (je sais c'est pas le bon exemple)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim b As Long, p as Long
 
b = 20
p=VarPtr(b)
 
MsgBox getLong(p)
setLong 10, p
MsgBox b

lien utile : http://rp.developpez.com/vb/tutoriels/dll/

[Delbeke]

Heu, interessant.
Mais c'est de la haute voltige normalement réservée au language comme le C
Vb a plutot tendance a vouloir masquer les pointeurs, et on court de gros riques à utiliser ce genre d'outils. Donc à réserver aux progrmmeurs très expérimentés

[DarkVader]

Bonjour,
Mieux vaut tard que jamais - il y a plus simple, utiliser les fonctions existantes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
        Public Declare Sub GetMem1 Lib "msvbvm60" (ByVal Addr As Long, RetVal As Byte)
        Public Declare Sub GetMem2 Lib "msvbvm60" (ByVal Addr As Long, RetVal As Integer)
        Public Declare Sub GetMem4 Lib "msvbvm60" (ByVal Addr As Long, RetVal As Long)
        Public Declare Sub GetMem8 Lib "msvbvm60" (ByVal Addr As Long, RetVal As Currency)
 
        Public Declare Sub PutMem1 Lib "msvbvm60" (ByVal Addr As Long, ByVal NewVal As Byte)
        Public Declare Sub PutMem2 Lib "msvbvm60" (ByVal Addr As Long, ByVal NewVal As Integer)
        Public Declare Sub PutMem4 Lib "msvbvm60" (ByVal Addr As Long, ByVal NewVal As Long)
        Public Declare Sub PutMem8 Lib "msvbvm60" (ByVal Addr As Long, ByVal NewVal As Currency)

Ok, elles ne sont pas documentées mais au moins celles-là, on sait qu'elles sont sur le poste