1 procedure pour plusieurs gadgets

[venom]

Bonsoir,

Voilà je boss actuellement sur un nouveau code, mais je rencontre un obstacle qui ne m’étais encore jamais arrivé.
J'ai une procédure qui me permet de supprimé une ligne via CheckBoxes dans un ListIconGadget. jusque la tout va bien.

Là ou je sèche, c'est que j'ai plusieurs ListIconGadget dans ma fenetre. donc est ce que je doit recréer ma procédure pour x ListIconGadget ou il y a un moyen de relier tout dans 1 procédure ?

voici la procédure en question :

Code : Tout sélectionner

Procedure RemoveGadget()
  i = 0
  Repeat
    If GetGadgetItemState(#ListIcon_Entree, i) & #PB_ListIcon_Checked ; Si l'item est marqué
      RemoveGadgetItem(#ListIcon_Entree, i) ; on le retire
      ProcedureReturn RemoveGadget() ; on rappelle la procedure
    Else
      i + 1
    EndIf
  Until i >= CountGadgetItems(#ListIcon_Entree) Or CountGadgetItems(#ListIcon_Entree) = 0
EndProcedure

ps: j'ai pas moin de 9 ListIconGadget donc 9 procédures a écrire
Merci






@++

[falsam]

En envoyant le gadget dans ta procédure peut etre ?

Code : Tout sélectionner

Procedure RemoveGadget(IdgadGet)
  i = 0
  Repeat
    If GetGadgetItemState(IdgadGet, i) & #PB_ListIcon_Checked ; Si l'item est marqué
      RemoveGadgetItem(IdgadGet, i) ; on le retire
      ProcedureReturn RemoveGadget() ; on rappelle la procedure
    Else
      i + 1
    EndIf
  Until i >= CountGadgetItems(IdgadGet) Or CountGadgetItems(IdgadGet) = 0
EndProcedure

[venom]

pouah!!! le gros boulet débutant Bin oui c'est logique merci falsam j'ai honte la






@++

[falsam]

Venant de ta part, J'étais étonné de cette question alors je me suis dit que c'était un Quiz. Donc si je comprend bien le jeu s’arrête là ? Dommage. :p

[venom]

oui malheureusement, le jeu s’arrête la. je n'aime pas trop avoir la place du bouler mais sur ce coup la j'avoue avoir vraiment chier






@++

[dayvid]

Bas pas grave, ça arrive a tous le monde