Enumeration #PB_Compiler_EnumerationValue
#Window
#Ma_fen
#StatusBar
#Button_0
#mcombo
EndEnumeration
;
;
OpenWindow(#Ma_fen, 0, 0, 320, 280, " * Bienvenu *", #PB_Window_SystemMenu | #PB_Window_Invisible| #PB_Window_ScreenCentered)
SetWindowColor(#Ma_fen,$FFE0BC)
StickyWindow(#Ma_fen,1)
ComboBoxGadget(#mcombo, 10, 25, 300, 350,#PB_ListIcon_FullRowSelect)
;ComboBoxGadget( 20, 20, 301, 260, " Faites votre selection")
;ListIconGadget(0, 10, 20, 301, 260, " Faites votre selection", 297)
;
AddGadgetItem(#mcombo, 0," Faire un choix parmis les sélections suivantes")
AddGadgetItem(#mcombo, 1,"_________________________________________________")
AddGadgetItem(#mcombo, 2," Choisir les numéros")
AddGadgetItem(#mcombo, 3," Choisir les restrictions")
AddGadgetItem(#mcombo, -1," Valider mes choix")
AddGadgetItem(#mcombo, -1," Voir mes numéros")
AddGadgetItem(#mcombo, -1," Vérification des numéros" )
AddGadgetItem(#mcombo, -1," Imprimer les numéros sur feuille de papier" )
AddGadgetItem(#mcombo, -1," Imprimer les numéros sur feuille de validation")
AddGadgetItem(#mcombo, -1,"")
AddGadgetItem(#mcombo, -1,"")
AddGadgetItem(#mcombo, -1,"")
AddGadgetItem(#mcombo, -1,"")
AddGadgetItem(#mcombo, -1,"")
AddGadgetItem(#mcombo, -1,"")
AddGadgetItem(#mcombo, -1," QUITTER ")
GetActiveGadget()
SetGadgetState(#mcombo, 0)
;
AnimateWindow_(WindowID(#Ma_fen), 1500, #AW_CENTER)
; Ici les gadgets
;
Debug "GetActiveGadget = "+Str(GetActiveGadget())
;
;ici est le probleme ---> je ne sait pas quel gadget a été sélectionné
;
; Boucle générale
Repeat
Select WaitWindowEvent()
Case #PB_Event_Gadget
Case #PB_Event_CloseWindow
Break
EndSelect
ForEver
;
;----------------------------------------------------------------------------------* C'est la fin *----------------------------------------------------------------------------------
;
End
je ne sait pas quel gadget a été sélectionné.. besoin d'aide
Re: je ne sait pas quel gadget a été sélectionné.. besoin d'
Salut , pense à mettre ton code entre les balises [ code ] ...mon code... [ /code ] ( sans les espaces)
et a posté dans la bonne section.
et a posté dans la bonne section.
Code : Tout sélectionner
myWindow = OpenWindow(#PB_Any,0,0,500,100,"gadgets")
Dim myButton(4)
For i = 0 To 4
myButton(i) = ButtonGadget(#PB_Any,0,i*20,500,20,"Button number "+Str(i+1))
Next
If myWindow
run.a = #True
While run
event = WindowEvent() ; evenement sur la fenetre
If event = #PB_Event_CloseWindow ; ferme la fenetre
run = #False
EndIf
If event = #PB_Event_Gadget ; evenement sur un gadget
eventGadget = EventGadget()
For i = 0 To 4
If eventGadget = myButton(i)
Debug "Button number "+Str(i+1)
EndIf
Next
EndIf
Wend
CloseWindow(myWindow)
EndIf
End
- falsam
- Messages : 7244
- Inscription : dim. 22/août/2010 15:24
- Localisation : IDF (Yvelines)
- Contact :
Re: je ne sait pas quel gadget a été sélectionné.. besoin d'
Bonjour mycleo. Edites ton message et place le code entre
Code : Tout sélectionner
et [[b][size=85]/[/size][/b]code].
Revenons à ton souci. Si tu ne places pas un SetActiveGadget(#mcombo) aprés la création de ton gadget, alors effectivement ton code ne sait pas qui est sélectionné.
Grillé par G-Rom mais je laisse parce que ma réponse est plus adéquate. :)
Configuration : Windows 11 Famille 64-bit - PB 6.03 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Re: je ne sait pas quel gadget a été sélectionné.. besoin d'
Merci G-Rom je devrais etre capable de me debrouiller avec ca merci encore et sourtout pour la rapidite de ta reponse au plaisir... Mycleo