PureBasic

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