Page 1 sur 1
ListIconGadget
Publié : jeu. 03/févr./2011 18:33
par 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
Re: ListIconGadget
Publié : jeu. 03/févr./2011 22:21
par 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
Re: ListIconGadget
Publié : ven. 04/févr./2011 8:01
par Cagou77
Parfait, Merci
Re: ListIconGadget
Publié : ven. 04/févr./2011 8:35
par MLD
Salut Cagou 77
Et pour faire l'inverse
SetGadgetItemState((#Grid,2, GetGadgetItemState((#Grid,2) & ~#PB_ListIcon_Checked)