problème avec ByVal..

Version imprimable

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:

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 ==>

Citation:

Expression attendu

Et je ne sais pas quoi faire :lol::lol::lol:

28/03/2011, 10h59
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
28/03/2011, 11h16
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:

Test = ReadProcessMemory(hProcess, Address, sngbuffer, 4, 0)
28/03/2011, 11h17
tomlev

Citation:

Envoyé par asmduty

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:

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 :aie:)
28/03/2011, 11h38
asmduty

oO

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

Effectivement j'ai trouvé la solution.

Je place le ByVal ici:

Code:

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:

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:

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 ?

31/03/2011, 08h57
asmduty

ListItems n'est pas un type en VB.

Voilà comment je remplacerais tes 3 lignes :

Code:

LstView.Items(LstView.Items.Count).SubItems(key) = Entree
31/03/2011, 18h00
Prog-Flo93

Je viens de tester de marqué ton code en remplacement des 3 lignes. Mias l'érreur suivante est présente sur le "Entree"

Citation:

Impossible de convertir une valeur de type 'String' en 'System.Windows.Forms.ListViewItem.ListViewSubItem'. C:\Users\Florent\documents\visual studio 2010\Projects\RBR TEMPS\RBR TEMPS\Module1.vb 141 60 RBR TEMPS
01/04/2011, 08h48
asmduty

Je ne trouve pas cette erreur, il m'indique seulement que Subitems est ReadOnly, ce qui se resoud en ajouter .Text apres SubItems(key)
Il y a toutes les chances que ça resolve aussi ton erreur puisque que ce que tu veux définir est le text du SubItem et non le SubItem lui même

Effectivement tu as vu juste. Cela est bon.

Et donc il me reste une seule erreur, toujours sur la listView.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Function AjoutLigne() Dim itmx As ListItem Dim driver As String driver = txtJoueur.Text If driver = vbNullString Then driver = "unnamed" Set itmx = lstTemps.ListItems.Add(, , driver) itmx.SubItems(1) = "--:--.--" 'split 1 itmx.SubItems(2) = "--:--.--" 'split 2 itmx.SubItems(3) = "--:--.--" 'temps itmx.SubItems(4) = "0" '% itmx.SubItems(5) = Now '% itmx.Selected = True End Function
Donc j'avais une erreur sur le "ListItem" sur la ligne "Dim itmx as ListItem".

J'ai modifié comme suit : "Dim itmx As ListViewItem" Cela à l'ai d'être bon car l’erreur à disparu.

L'autre erreur de cette procédure est :
"itmx = lstTemps.Items(, , driver)"

L'érreur marque :

Citation:

La résolution de surcharge à échoué, car aucun "Item" accessible ce nombre d'argument

La je suis perdue

03/04/2011, 09h17
Prog-Flo93

Bon j'ai trouvé comment régler le problème. Je vire la ListView et fonctionne avec un autre composant.

Merci de votre aide :D