PureBasic

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

Salut , pense à mettre ton code entre les balises [ code ] ...mon code... [ /code ] ( sans les espaces)
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

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. :)

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

PureBasic

je ne sait pas quel gadget a été sélectionné.. besoin d'aide

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'

Re: je ne sait pas quel gadget a été sélectionné.. besoin d'

Re: je ne sait pas quel gadget a été sélectionné.. besoin d'