Convertion VB6 à VB.Net - Byval

Salut
Toujours en conversion du programme de VB6 à VB.Net,, je bloque sur un dernier point du programme.

Il s'agit d'une procedure "ReadProcessMémory".

voici la code d'origine.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Public Function GetFloat(ByVal Address As Integer) As Single On Error Resume Next hProcess = OpenProcess(PROCESS_READ_WRITE_QUERY, False, pid) Test = ReadProcessMemory(hProcess, Address, sngbuffer, ByVal 4 ,0) CloseHandle(hProcess) GetFloat = sngbuffer End Function Public Function GetLong(ByVal Address As Long) As Long On Error Resume Next hProcess = OpenProcess(PROCESS_READ_WRITE_QUERY, False, pid) Test = ReadProcessMemory(hProcess, Address, longBuffer, ByVal 4, 0) CloseHandle(hProcess) GetLong = longBuffer End Function

---

Les erreurs concernent les "ByVal"

Après quelques recherches et info, glané à droite et gauche. Il semblerait que le problème vienne de cette ligne suivante.

Code:

---

Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer

---

J'ai réalisé plusieurs modification en suprimant des ByRef pour des Byval, des Long pour des Integer et autre.

Mais je sèche la. :cry::cry:

Merci de m'aider.

Bonsoir,

les ByRef et ByVal ne se mettent que dans les définitions de fonction / procédure et non dans l'appel de celle-ci. Donc essayes de le supprimer tout simplement :)

Citation:

---

Envoyé par kitcarflo

J'ai réalisé plusieurs modification en suprimant des ByRef pour des Byval

---

si tu as remplacé des byref par des byval ou l'inverse c'est du grand n'importe quoi
de plus pour transformer un programme vb6 en vb.net il convient de le repenser et de le réécrire, pas de recopier bêtement en adaptant la syntaxe

Citation:

---

Envoyé par Sankasssss

Bonsoir,

les ByRef et ByVal ne se mettent que dans les définitions de fonction / procédure et non dans l'appel de celle-ci. Donc essayes de le supprimer tout simplement :)

---

J'avoue que je l'ai joué un peu débile, car j'avais virer le ByVal comme tu disait. et l'erreur se déplaçais sur "Address, sngbuffer".

Ceci parce que en fait au début voila comment était déclaré.

Code:

---

Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Int32(), ByVal lpBuffer As Int32(), ByVal nSize As Long, ByVal lpNumberOfBytesWritten As Long) As Long

---

Que j'ai modifié en

Code:

---

Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer

---

Et donc j'avais pas pensé à supprimer les ByVal, mais effectivement maintenant il n'y a plus d'erreur.

Merci :ccool::ccool: