impec! merci beaucoup!
j'ai refais la fonction en c qui donne:void __stdcall ENVOIS_BUF_TMP(POINT *BUF,long IndMax)
POINT BUF_TMP;
void __stdcall ENVOIS_BUF_TMP(POINT *BUF,long IndMax)
{
for (i=0;i<IndMax;i++)
{
BUF[i]= BUF_TMP[i] ;
}
}
et pour l'appel en vb:Private Declare Sub ENVOIS_BUF_TMP Lib "hook.dll" (ByRef BUF_TMP As POINTAPI, ByRef IndMax As Long)
puis la fonction test:Public Sub test1()
Dim pt(500) As POINTAPI
Dim IndMax As Long
IndMax = 500
Call ENVOIS_BUF_TMP(pt(0), IndMax)
Call ENVOIS_BUF_TMP(pt(0), IndMax)
Form1.Cls
For i = 0 To IndMax - 1
Form1.Print "x" & i & ": " & pt(i).x & " y" & i & ": " & pt(i).y
Next i
End Sub