Discussion :

[Prog-Flo93]

Salut à tous
Je ne suis pas un crack en VB.net et j’essaie de m'améliorer tous les jours. Mais la j'ai besoin d'aide.

L'objet et de transformé un bout de code de VB6 en VB.Net
En fait, on m'a passé un bout de code dont j'ai besoin en VB6 et moi je suis plus a l'aise en VB.net, donc je le modifie pour pouvoir faire ce que j'ai besoin derrière.

Alors le bout de code

Code :

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

1
2
3
4
5
6
7
8
9
Public Function GetFloat(ByVal Adress As Long) As Single
        On Error Resume Next
 
        hProcess = OpenProcess(PROCESS_READ_WRITE_QUERY, False, pid)
        Test = ReadProcessMemory(hProcess, ByVal Address, sngbuffer, ByVal 4, 0)
        CloseHandle(hProcess)
        GetFloat = sngbuffer
 
    End Function

J'ai donc une erreur sur les "ByVal" ou VB Express 2010 me dit ==>

Expression attendu

Et je ne sais pas quoi faire

[asmduty]

Je ne vois pas pourquoi il te dit ça sur tes ByVal, la syntaxe semble correcte.

Cependant tu n'as aucun return dans te Function, or une Function doit obligatoirement retourner quelque chose, sinon tu dois faire des Sub.
Peut être que c'est ce qui le gène...

EDIT : Au temps pour moi, je suppose que tes erreurs sont sur les byval a l'intérieur de ton code, ceux là en effet n'ont pas à être là, supprime les simplement

[tomlev]

ByVal s'utilise dans la déclaration de la fonction, pas lors de l'appel. Ton appel à ReadProcessMemory devrait s'écrire comme ça :

Code :

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

Test = ReadProcessMemory(hProcess, Address, sngbuffer, 4, 0)

[tomlev]

Cependant tu n'as aucun return dans te Function, or une Function doit obligatoirement retourner quelque chose, sinon tu dois faire des Sub.

Si, la fonction renvoie bien une valeur :

Code :

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

GetFloat = sngbuffer

En VB tu peux affecter une valeur au nom de la fonction, ce sera la valeur retournée à la fin (oui c'est horrible )

[asmduty]

oO

Ok, merci de m'avoir éclairé alors.
Je vais ajouter ça a ma liste avec les "exit for", "exit sub", etc ^^

[Prog-Flo93]

Effectivement j'ai trouvé la solution.

Je place le ByVal ici:

Code :

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

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

et dans la procédure :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
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, 4, 0)
        CloseHandle(hProcess)
        GetFloat = sngbuffer
 
    End Function

Mais j'ai un un autre problème concernant les ListViews
Toujours en convertions de VB6 vers VB.Net.

Voila le code dont j'ai le problème.

Code :

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

1
2
3
4
5
6
7
8
9
 
Public Function ViewTimes(ByVal LstView As ListView, ByVal Entree As String, ByVal Key As Integer)
        On Error Resume Next
 
        Dim itmx As ListItems
        itmx = LstView.listItems
        itmx.Item(itmx.count).SubItems(Key) = Entree
 
    End Function

ListItems non défini ?

[asmduty]

ListItems n'est pas un type en VB.

Voilà comment je remplacerais tes 3 lignes :

Code :

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

LstView.Items(LstView.Items.Count).SubItems(key) = Entree