PureBasic

Repeat
   EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget
      Select EventGadget()
         
      Case 1001 To 1026
        x=Case ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ca ne marche pas ! (je sais, c'etait pas prevu; mais comment faire ?)
           
      EndSelect
    EndIf
  Until EventID = #PB_Event_CloseWindow
End

remplace par ?

Code : Tout sélectionner

evg = EventGagdet()

if evg  => 1001 and evg  <= 1026
x = evg 
endif

ca fait une erreur :

EventGadget() n'est pas une fonction, un tableau....

ha, attend, je crois qvoir trouvé

ton code :

Code : Tout sélectionner

evg = EventGagdet()

if evg  => 1001 and evg  <= 1026
x = evg 
endif

tu as ecris EventGagdet() au lieu de EventGadget()

erreur subtile

Pas besoin d'écrire autant de variables

Code : Tout sélectionner

Repeat
    Select WaitWindowEvent()
        Case #PB_Event_CloseWindow
            End
            
        Case #PB_Event_Gadget 
            Select EventGadget()
                    
                Case 1001 To 1026
                    Debug "Bouton ID #" + EventGadget()   

            EndSelect
    EndSelect
ForEver

End

et pour relever l'état des cases à cocher sans avoir à faire 676 copiés/collés (26 onglets avec 26 cases) 5 lignes suffisent

Code : Tout sélectionner

Repeat
    Select WaitWindowEvent()
        Case #PB_Event_CloseWindow
            End
            
        Case #PB_Event_Gadget 
            Select EventGadget()
                    
                Case 1001 To 1026
                    ClearDebugOutput()
                    Panel_ID = GetGadgetState(0) 
                    Debug "Panel #" + Panel_ID + " (" + GetGadgetItemText(0, Panel_ID) + ")" + Chr(10)
                    For i = 1 To 26
                        Debug "#" + RSet(Str(i), 2, " ") + 
                              " > " + 
                              Chr(Panel_ID + 65) + Chr(i + 64) +
                               " - " + 
                              GetGadgetState(i + Panel_ID * 26) 
                    Next

            EndSelect
    EndSelect
ForEver

End

C'est beau PB non ?

PureBasic

[Résolu] Comment garder dans une variable la Case cliquée ?

[Résolu] Comment garder dans une variable la Case cliquée ?

Re: Comment garder dans une variable la Case cliquée ?

Re: Comment garder dans une variable la Case cliquée ?

Re: Comment garder dans une variable la Case cliquée ?

Re: [Résolu] Comment garder dans une variable la Case cliqué