Code : Tout sélectionner
SetGadgetColor(#Text, #PB_Gadget_FrontColor, $001FFF)
Code : Tout sélectionner
EnableExplicit
;--Fenetres
Enumeration Windows
#Form_Main
EndEnumeration
;-- Gadgets
Enumeration Main
#Text
EndEnumeration
;-- Variables
Global quitter
;-- Procedures
;-- Fermer une fenetre ou quitter le programme
Procedure close()
quitter = EventWindow()
CloseWindow_(quitter)
If quitter=#Form_Main
End
EndIf
EndProcedure
;-- Fenetre Main
Procedure open_Main()
OpenWindow(#form_Main,0,0,500,420,"test ",#PB_Window_SystemMenu|#PB_Window_TitleBar|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
SetGadgetColor(#Text, #PB_Gadget_FrontColor, $001FFF)
TextGadget(#Text,10,10,100,20,"Prenom : ")
BindEvent(#PB_Event_CloseWindow,@Close(),#Form_Main)
EndProcedure
;-- Boucle du programme
open_Main()
Repeat
WaitWindowEvent()
ForEver