Page 1 sur 1

Boutton qui va ouvrir une page internet ?

Publié : jeu. 30/avr./2009 11:10
par Shinao
Bonjour,

je voulais juste savoir comment faire pour lorsque je clique sur le boutton , cela ouvre une page internet... ? enfin la fonction quoi :p

merci d'avance

Publié : jeu. 30/avr./2009 12:09
par Patrick88

Code : Tout sélectionner

  If OpenWindow(0,0,0,600,300,"WebGadget",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) 
    TextGadget(0,0,4,50,20,"Url :",#PB_Text_Right)
    StringGadget(1,50,0,400,20,"http://www.purebasic.com")
    ButtonGadget(2,460,0,50,20,"Change")
    
    WebGadget(3,10,30,580,280,"http://www.purebasic.com")
    ; Note: si vous désirez utiliser un fichier local, changez le dernier paramètre en "file://" + chemin + nomdufichier
    
    
    Repeat 
      event = WaitWindowEvent() 

      If EventGadget() = 2 ; quand le bouton "change" est cliqué
        nouvelle_adresse.s = GetGadgetText(1) ; recupère le contenu de la stringgadget
        
        SetGadgetText(3,nouvelle_adresse) ; change la paga web dans le gadget
      EndIf
    Until event = #PB_Event_CloseWindow
  EndIf

Publié : jeu. 30/avr./2009 12:35
par Shinao
Escuse moi je n'avais pas précisé mais cette méthode est à la PB et je voudrias juste l'ouvrir avec le naviguateur par défaut de l'utilisateur :p

merci d'avance

Publié : jeu. 30/avr./2009 12:57
par gnozal

Code : Tout sélectionner

      If ShellExecute_(0, 0, URL$, 0, 0, #SW_SHOWNORMAL) <= 32 ; erreur, on réessaie une fois (parfois problème de timeout)
        ShellExecute_(0, 0, URL$, 0, 0, #SW_SHOWNORMAL)
      EndIf

Publié : jeu. 30/avr./2009 14:36
par nico
RunProgram fonctionne aussi!

Code : Tout sélectionner

RunProgram("http://www.purebasic.fr/french/")

Publié : jeu. 30/avr./2009 15:52
par gnozal
nico a écrit :RunProgram fonctionne aussi!

Code : Tout sélectionner

RunProgram("http://www.purebasic.fr/french/")
Pas sur mon PC [NT4 + Opera] : j'ai une erreur Windows 'Le fichier "http://www.purebasic.fr/french/" (ou un des composants) est introuvable. Etc...'
Mon code posté plus haut fonctionne.

Publié : jeu. 30/avr./2009 16:54
par Shinao
Merci à vous deux :) !