ListIcon réactualisée

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Ekim
Messages : 215
Inscription : dim. 24/juin/2018 1:20

ListIcon réactualisée

Message par Ekim »

Bonsoirs à tous

Je ne sais pas si le titre est suffisamment explicite, mais en fait, ce que je voudrais c'est au fur et à mesure d'ajouter des éléments à une liste il y est un défilement automatique vers le bas

je ne sais pas si je me suis bien fait comprendre? :oops:

en gros je souhaiterais que le dernier élément soit toujours visible dès l'instant où j'appuis sur "Add"

Code : Tout sélectionner

If OpenWindow(0, 100, 100, 100, 180, "ListIconGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
	ListIconGadget(0,0, 21, 100, 150, "Item", 100, #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection)
	
	ButtonGadget(1,0,0,30,20,"Add")

	Repeat
		Event = WaitWindowEvent()
		WindowID = EventWindow()
		GadgetID = EventGadget()
		EventType = EventType()
		
		Select Event
			Case #PB_Event_Timer
				
			Case #PB_Event_Gadget;-Change reac
				Select GadgetID
					Case 1
						a=a+1
						
						AddGadgetItem(0, -1, "Item "+Str(a))
				EndSelect
		EndSelect
	Until Event = #PB_Event_CloseWindow
EndIf
Je suis à votre écoute :wink:
Avatar de l’utilisateur
venom
Messages : 3072
Inscription : jeu. 29/juil./2004 16:33
Localisation : Klyntar
Contact :

Re: ListIcon réactualisée

Message par venom »

Salut Ekim,

J'ai aborder le sujet il n'y a pas longtemps ici

Voici ton code modifier :

Code : Tout sélectionner

If OpenWindow(0, 100, 100, 100, 180, "ListIconGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
   ListIconGadget(0,0, 21, 100, 150, "Item", 100, #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection)
   
   ButtonGadget(1,0,0,30,20,"Add")

   Repeat
      Event = WaitWindowEvent()
      WindowID = EventWindow()
      GadgetID = EventGadget()
      EventType = EventType()
      
      Select Event
         Case #PB_Event_Timer
            
         Case #PB_Event_Gadget;-Change reac
            Select GadgetID
               Case 1
                  a=a+1
                  
                  AddGadgetItem(0, -1, "Item "+Str(a))
                   SetGadgetState(0, CountGadgetItems(0)-1) ; <--- ligne ajouter
                  
            EndSelect
      EndSelect
   Until Event = #PB_Event_CloseWindow
EndIf





@++
Windows 10 x64, PureBasic 5.73 x86 & x64
GPU : radeon HD6370M, CPU : p6200 2.13Ghz
Ekim
Messages : 215
Inscription : dim. 24/juin/2018 1:20

[RESOLUT] Re: ListIcon réactualisée

Message par Ekim »

Salut @Venom, oui je vois ça effectivement 8O , alors pour ton topic n'apparait pas dans la recherche quand on tappe "Listicon" ? :|

la solution était pourtant si simple :D

Merci @Venom
Répondre