Code : Tout sélectionner
;======================================
;- declaration des constantes
; il faut donner au maximum un nom a la constantes qui représente son utilité
; on déclare chaque type de constantes dans une rubrique
; Window
#fenetre_principale = 0
; Gadget
#gadget_bouton_go_1 = 0
#gadget_webgadget = 1
;======================================
;- declaration des variables globales, des strutures, des listes ou tableau, ...
;======================================
;- declaration des procedures
Procedure Ouvre_Fenetre_principale()
If OpenWindow(#fenetre_principale, 243, 97, 948, 692, #PB_Window_SystemMenu | #PB_Window_WindowCentered, "fenêtre principale")
; on créer la liste des éléments (gadget) de la fenètre
If CreateGadgetList(WindowID())
; on crée les 2 gadgets
WebGadget(#gadget_webgadget, 10, 10, 930, 580, "www.lien0.fr")
ButtonGadget(#gadget_bouton_go_1, 10, 600, 80, 20, "Go !!!")
EndIf
EndIf
EndProcedure
Procedure Gestion_bouton_GO(Numero_bouton.l)
SetGadgetText(#gadget_webgadget, "www.lien1.fr")
Delay(32000)
SetGadgetText(#gadget_webgadget, "www.lien2.fr")
EndProcedure
;=====================================
;- Debut du programme
; On affiche la fenêtre les boutons
Ouvre_Fenetre_principale()
; On lance la boucle de gestion des évènements de la fenêtre ouverte
Repeat
Event = WaitWindowEvent()
If Event = #PB_EventGadget
Select EventGadgetID(); boutons, zone de texte, ...
Case #gadget_bouton_go_1
Gestion_bouton_GO(1)
EndSelect
EndIf
Until Event = #PB_EventCloseWindow; si on appui sur la croix, on ferme le programme
End; Fin du programme
