Forums PureBasic - Français
https://www.purebasic.fr/french/
brossden a écrit : sam. 02/août/2025 13:02 je voudrais un exemple de code comme ceci :
Une fenêtre comportant 2 boutons le premier ouvre Youtube et le second Google
Une âme charitable pourrait elle me créer ce code ?
avec ce code. Par contre tu vas rencontrer un souci avec la connexion de Google et Youtube car la connexion n'est pas autorisé. Code : Tout sélectionner
; On evite l'affichage de la fenetre de debug
CloseDebugOutput()
EnableExplicit
Enumeration
#mf ; Fenetre principale full screen
#mc ; Fenetre Chrome
#my ; Fenetre Youtube
; Boutons d'appels Chrome & Youtube
#mfChrome
#mfYoutube
; Navigateur Chrome & Youtube
#mcWeb
#myWeb
; Bouton de fermeture Chrome & Youtube
#mcClose
#myClose
EndEnumeration
Declare CallChrome()
Declare CallYoutube()
Declare OnClose()
; Ouverture de la fenetre principale
OpenWindow(#mf, 0, 0, 0, 0, "", #PB_Window_Background)
SetWindowColor(#mf, RGB(211, 191, 191))
ButtonGadget(#mfChrome, WindowWidth(#mf)-120, 100, 100, 35, "Chrome")
ButtonGadget(#mfyoutube, WindowWidth(#mf)-120, 150, 100, 35, "Youtube")
; La boucle evenementielle n'existe pas avec SpiderBasic
; Il faut gérer des contextes evenementiels.
; Chaque contexte est associé à un @callback.
BindGadgetEvent(#mfChrome, @CallChrome())
BindGadgetEvent(#mfYoutube, @CallYoutube())
Procedure CallChrome()
If IsWindow(#mc) = 0
OpenWindow(#mc, 100, 100, 600, 500, "Chrome")
WebGadget(#mcWeb, 0, 0, 600, 500, "https://google.com")
BindEvent(#PB_Event_CloseWindow, @OnClose())
EndIf
EndProcedure
Procedure CallYoutube()
If IsWindow(#mfYoutube) = 0
OpenWindow(#my, 150, 150, 600, 500, "Youtube")
WebGadget(#myWeb, 0, 0, 600, 500, "https://youtube.fr")
BindEvent(#PB_Event_CloseWindow, @OnClose())
EndIf
EndProcedure
Procedure OnClose()
Protected ThisWindow = EventWindow()
UnbindEvent(#PB_Event_CloseWindow, @OnClose(), ThisWindow)
CloseWindow(ThisWindow)
EndProcedure