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

[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"

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

[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

[Prog-Flo93]

Effectivement tu as vu juste. Cela est bon.

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

Code :

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

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 :

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

La je suis perdue

[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