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!
Publié : jeu. 30/avr./2009 15:52
par gnozal
nico a écrit :RunProgram fonctionne aussi!
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

!