affiché le poids totalRésolu

Question

bonjoooour
j'ai une list1 avec checkbox quand je clique dans la list1 les objets de cette
on un poids et ils vont dans une list2 je voudrai une fois mon choix est fait que le poid total apparaisse sur un label
c 'est plus compliqué que de faire valeur1+ valeur2 etc.... car mes objet(54) on un nom avec chaqun un poids différent je bloque.

OneHacker · Accepted Answer

En ces cas l&#224; fait une fonction comme ceci

Private function PoidsTotal() as Integer
Dim Result as Integer = 0

For Each Obj As Objet in sac()
Result += Obj.poids
end For

return Result

End Function

Redman

OneHacker · Answer

Reformule car il manque des mots dirait-on et soit plus explicite !

Redman

andregoub · Answer

bonjoooour
j'ai une list1 avec checkbox quand je sélectionne quelques entrées de ma list1 elles sont affichées sur la list2 ,les entrees s'affichent bien  et leurs poids aussi  par contre  je n'arrive pas  a faire le morceau de programme qui calculera le poids total des entrees sélectionner. 
désolé si vous avez pas compris sur la demande précédente

OneHacker · Answer

As-tu une collection Integer publique o&#249; sont stock&#233;es les poids ?

Redman

andregoub · Answer

voici un morceau de mon code

Private Type Objet
Nom As String
poids As Single
End Type
Private matos() As Objet
Private sac() As Objet
Private Sub cmdQuitter_Click()
End
End Sub
Public Sub Form_Load()
 'remplissage de la liste des objets
ReDim matos(54)
Index = 50
matos(1).Nom = "socles Orientable 55 cm"
matos(1).poids = 5
matos(2).Nom = "Verin standard 30 cm"
matos(2).poids = 2.2
matos(3).Nom = "Verin standard 50 cm"
matos(3).poids = 2.9
etc...

Affiché le poids total

5 réponses

Discussions similaires