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
Dernière modification par SPH le dim. 23/juin/2019 13:07, modifié 1 fois.
http://HexaScrabble.com/ !i!i!i!i!i!i!i!i!i! !i!i!i!i!i!i! !i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti Version de PB : 6.00 - 64 bits
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