ListIconGadget

[Cagou77]

Bonsoir, comment peut-on cocher les cases à cocher dans une Listicongadget ( #PB_ListIcon_CheckBoxes )
bien entendu sans passer par le clic souris

Code : Tout sélectionner

ListIconGadget(#PB_Any, 2, 23, 635, 180, "Alarme", 100, #PB_ListIcon_AlwaysShowSelection|#PB_ListIcon_GridLines|#PB_ListIcon_CheckBoxes|#PB_ListIcon_FullRowSelect)

Je n'ai pas trouvé de soluce
Merci d'Avance

[falsam]

Utilise la fonction SetgadgetItemState

Un peu de code

Code : Tout sélectionner

Enumeration
  #MainForm
  #Grid
EndEnumeration

Procedure MainFormShow()
  OpenWindow(#MainForm,0,0,400,300,"Case à cocher",#PB_Window_ScreenCentered |#PB_Window_SizeGadget | #PB_Window_SystemMenu)
  ListIconGadget(#Grid, 10, 20, 300, 75, "Alarme", 100, #PB_ListIcon_CheckBoxes)  ; Liste avec icônes et cases à cocher
  
  AddGadgetColumn(#Grid, 1, "Libelle", 65) ; Ajout d'une colonne
  
  AddGadgetItem(#Grid, -1, "10:15"+Chr(10)+"Faire ceci") ; 1er ligne du tableau
  AddGadgetItem(#Grid, -1, "15:30"+Chr(10)+"Faire cela") ; 2eme ligne du tableau
  
  ; C'est ici que tu as ta réponse. Exemple je coche la deuxiéme ligne du tableau
  ; La premiere ligne commence à l'indice 0
  SetGadgetItemState(#Grid, 1, #PB_ListIcon_Checked )

EndProcedure

MainFormShow()

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_Gadget

    Case #PB_Event_CloseWindow
      End
  EndSelect
ForEver

[Cagou77]

Parfait, Merci

[MLD]

Salut Cagou 77

Et pour faire l'inverse

SetGadgetItemState((#Grid,2, GetGadgetItemState((#Grid,2) & ~#PB_ListIcon_Checked)