PureBasic

Bonjour,

Voilà je souhaiterais additionner le résultat de chaque ligne contenue dans un ListIconGadget.
Je ne sais pas si je me casse trop la tête ou quoi, mais j'imaginais ça plus facile

Bref je n'y arrive pas, je ne sais pas quel fonction utilisé.

Voici un code qui affiche un LIstIconGadget, et qui affiche comme valeur :
1
2
3
4
5

Je souhaite donc trouvé comme résultat = 15.
J'avais bien penser a un truck du genre

Code : Tout sélectionner

Val(GetGadgetItemText(#ListIcon_0, 0, 0))+Val(GetGadgetItemText(#ListIcon_0, 1, 0))+
Val(GetGadgetItemText(#ListIcon_0, 2, 0))+Val(GetGadgetItemText(#ListIcon_0, 3, 0))+Val(GetGadgetItemText(#ListIcon_0, 4, 0))

Mais quand ont ne connais pas a l'avance le nombre de ligne c'est pas très pratique

Merci de vos réponses.

Le code :

Code : Tout sélectionner

;- Window Constants
Enumeration
  #Window_0
EndEnumeration

;- gadgets Constants
Enumeration
  #ListIcon_0
EndEnumeration

  If OpenWindow(#Window_0, 0, 0, 800, 600, "", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered)
   ListIconGadget(#ListIcon_0, 10, 10, 780, 580, "valeurs", 775, #PB_ListIcon_GridLines)
    For a = 1 To 5
      AddGadgetItem(#ListIcon_0, -1, Str(a), 0, 0)
    Next 

  EndIf 
  
  
  Repeat
   EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget
      Select EventGadget()
          

      EndSelect
    EndIf
  Until EventID = #PB_Event_CloseWindow

@++

Bonjour,

Le code complet donne :

Code : Tout sélectionner

;- Window Constants
Enumeration
  #Window_0
EndEnumeration

;- gadgets Constants
Enumeration
  #ListIcon_0
EndEnumeration

  If OpenWindow(#Window_0, 0, 0, 800, 600, "", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered)
   ListIconGadget(#ListIcon_0, 10, 10, 780, 580, "valeurs", 775, #PB_ListIcon_GridLines)
    For a = 1 To 5
      AddGadgetItem(#ListIcon_0, -1, Str(a), 0, 0)
    Next 

  EndIf 
  
  ;*********************************
  
  For i=0 To CountGadgetItems(#ListIcon_0) - 1
    result + Val(GetGadgetItemText(#ListIcon_0, i, 0))
  Next i
  Debug result
  
  ;*********************************

  Repeat
   EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget
      Select EventGadget()
          

      EndSelect
    EndIf
  Until EventID = #PB_Event_CloseWindow

juste la partie que vous voulez donne :

Code : Tout sélectionner

  For i=0 To CountGadgetItems(#ListIcon_0) - 1
    result + Val(GetGadgetItemText(#ListIcon_0, i, 0))
  Next i
  Debug result

Cordialement,
GallyHC

Arf.. honte a moi.
Merci GallyHC impeccable.

@++

PureBasic

Additionner résultat ListIconGadget

Additionner résultat ListIconGadget

Re: Additionner résultat ListIconGadget

Re: Additionner résultat ListIconGadget