Afficher dernier element LisIconGadget
Publié : jeu. 04/avr./2019 22:05
Bonsoir a tous,
Voilà je cherche un moyen me permettant de toujours afficher la dernière ligne d'un ListIconGadget.
Je vous ai fait un petit code pour mieux comprendre.
Dans ce dernier vous avez un bouton qui permet d'ajouté des éléments a une ListIconGadget. Le problème, c'est qu'a un moment (quand il y a plus de valeur que la taille du gadget) une scrollbar apparait et les éléments s'ajoute "hors gadget". Moi je souhaiterais que la scroll soit toujours en bas
Avez-vous une idée ? D'avance merci.
@++
Voilà je cherche un moyen me permettant de toujours afficher la dernière ligne d'un ListIconGadget.
Je vous ai fait un petit code pour mieux comprendre.
Dans ce dernier vous avez un bouton qui permet d'ajouté des éléments a une ListIconGadget. Le problème, c'est qu'a un moment (quand il y a plus de valeur que la taille du gadget) une scrollbar apparait et les éléments s'ajoute "hors gadget". Moi je souhaiterais que la scroll soit toujours en bas
Avez-vous une idée ? D'avance merci.
Code : Tout sélectionner
;- Window Constants
Enumeration
#Window_0
EndEnumeration
;- gadgets Constants
Enumeration
#LIG
#BG
EndEnumeration
If OpenWindow(#Window_0, 0, 0, 800, 600, "", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered)
ListIconGadget(#LIG, 10, 10, 200, 200, "TitrePremiereColonne", 195, 0)
For a = 0 To 8
AddGadgetItem(#LIG, a, "Texte "+a , 0, 0)
Next
ButtonGadget(#BG, 10, 220, 200, 20, "Ajouter un element", 0)
EndIf
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_Gadget
Select EventGadget()
Case #BG
AddGadgetItem(#LIG, CountGadgetItems(#LIG)+1, "Texte "+CountGadgetItems(#LIG) , 0, 0)
EndSelect
EndIf
Until EventID = #PB_Event_CloseWindow@++
