SpinGadget: Je vois pas clair, ou quoi???

[Chris]

La doc dit :

Code : Tout sélectionner

Les évènements suivants sont supportés par EventType(): 
  #PB_EventType_Change: L'utilisateur a changé le texte dans la zone d'édition.
                     1: Le bouton 'Haut' a été pressé.
                    -1: Le bouton 'Bas' a été pressé.

J'ai beau essayer des tas de trucs, Debug EventType, EventType(), EventwParam, EventlParam, j'ai que dalle! Pas de -1 ni de 1!!!

Comment je peux savoir quel est le bouton qui a été appuyé?

Code : Tout sélectionner

#WinMain = 0
#Spin = 0

If OpenWindow(#WinMain, 0, 0, 120, 100, "",  #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
  
  If CreateGadgetList(WindowID(#WinMain))
    SpinGadget(#Spin, 10, 10, 100, 20, 0, 1000, #PB_Spin_Numeric)
  EndIf
  SetGadgetState(#Spin, 0)
  
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow : Quit = #True
        
      Case #PB_Event_Gadget
        Select EventGadget()
          Case #Spin
            Select EventType() 
              Case #PB_EventType_Change :  Debug "..."; Debug quoi????
            EndSelect
        EndSelect
    EndSelect
  Until Quit
EndIf

End

[gnozal]

Code : Tout sélectionner

            Select EventType() 
              Case #PB_EventType_Change
                Debug "CHANGED"
              Case -1
                Debug "DOWN"
              Case 1
                Debug "UP"
            EndSelect 

[Chris]

Code : Tout sélectionner

            Select EventType() 
              Case #PB_EventType_Change
                Debug "CHANGED"
              Case -1
                Debug "DOWN"
              Case 1
                Debug "UP"
            EndSelect 

Oh punaise!!!

J'"avais pas pensé à ça

Merci!