avec PureBasic v4.00 - Beta 11 (Windows - x86),
le morceau de mon code ne répond pas à l'action du bouton
j'ai retourné dans tous les sens
j'ai oublié quelque chose?!!
Code : Tout sélectionner
;- Window Constants
;
Enumeration
#Rintern
#PB_EventGadget ;ma gestion d'évènement
EndEnumeration
;- MenuBar Constants
;
Enumeration
#MenuBar_43
EndEnumeration
Enumeration
#MENU_27
#MENU_24
#MENU_25
#MENU_26
#MENU_7
#MENU_9
#MENU_10
#MENU_13
#MENU_30
#MENU_33
#MENU_15
#MENU_18
#MENU_19
#MENU_28
#MENU_31
#MENU_32
EndEnumeration
;- Gadget Constants
;
Enumeration
#ECRANcaisse
#LOGO
#Combo_0
#Combo_1
#Combo_2
#Combo_3
#Combo_4
#Combo_5
#Combo_6
#Combo_7
#Combo_8
#Combo_9
#Button_1
#Button_2
#Button_3
#Button_4
#Button_5
#Button_6
#Button_7
#Button_8
#Button_9
#Button_11
#Button_22
#Button_33
#Button_44
#Button_55
#Button_66
#Button_77
#Button_88
#Button_99
#quantite
#REFact
#ListAchats
#ticket
#facture
#annulation
#annul
#calculator
#Rcatego
#RcodeB
#totHT
#totTVA
#totTTC
#codeB
#codeINT
#CODEflash
#nonREF
#Option
#RFlash
#Recherch
EndEnumeration
If OpenWindow(#ECRANcaisse, 246, -6, 677, 732, "New window ( 0 )", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
If CreateMenu(#MenuBar_43, WindowID(#Rintern))
MenuTitle("OUTILS")
MenuItem(#MENU_28, "calculatrice")
EndIf
If CreateGadgetList(WindowID(#Rintern))
ButtonGadget(#calculator, 340, 650, 60, 40, "calculatrice")
;La boucle Repeat-Until sert à la gestion des évènements
Repeat
Event = WaitWindowEvent () ; on récupère un évènement
Select Event ; on sélectionne cet évènement
Case #PB_EventGadget ; cet évènement concerne une action sur un Gadget
Select EventGadget () ; dans ce cas, on récupère l'identifiant du gadget qui l'a créé
;
;
;
Case #calculator ; on compare l'identifiant à #ButtonGadget
RunProgram("calc")
;
;
;
EndSelect
Case #PB_Event_CloseWindow ; cet évènement concerne la fermeture de la fenêtre
Quit=1
EndSelect
Until Quit=1
EndIf
EndIf
