Page 1 sur 1
Aide WebGadget [Reglé]
Publié : dim. 03/déc./2006 12:58
par MetalOS
Salut, voila mon premier projet en PB et un petit navigateur web (le truc de base), et je cherche a recuperer dans ma barre d'adresse (StringGadget) les adresses des pages visiter. Comment faire ?
Merci pour vos réponses.
Publié : dim. 03/déc./2006 13:22
par Backup
pour faire appel au web gadget t'es bien obligé de lui passer l'adress en parametre non ?
"Resultat = WebGadget(#Gadget, x, y, Largeur, Hauteur,
URL$ [, Options])"
ici URL$ !!
rien ne t'empeche dutiliser soit un tableau ou une liste chainée ou bien un fichier pour ecrire, et donc retenir en memoire le lien visité !!
en plus URL$ est une Chaine de caracteres , donc compatible avec
le String gadget !
Publié : dim. 03/déc./2006 18:34
par MetalOS
Donc si je veux que quand je visite une page et que l'adresse de cette page apparaisse dans ma barre d'adresse (stringgadget) il faut utiliser un tableau ou une liste chainée ? Mais le parametre URL$ doit rester vide ou il faut obligatoirement que je mette une adresses d'un site au depart ?
Publié : dim. 03/déc./2006 19:07
par Backup
MetalOS a écrit :Donc si je veux que quand je visite une page et que l'adresse de cette page apparaisse dans ma barre d'adresse (stringgadget) il faut utiliser un tableau ou une liste chainée ? Mais le parametre URL$ doit rester vide ou il faut obligatoirement que je mette une adresses d'un site au depart ?
tu met une adresse par defaut c'est mieux
la liste chainée ou le tableau ne sont la Que pour Retenir les adresse visités
si tu ne visite qu'une seul adresse, et que tu ne veux pas retenir, les adresses visité, tu peut te passer de "memoire" -->> Tableau ou liste chainées
voici un exemple simple (qui ne retiens pas les adresses
)
; Code par Dobro
; purebasic 4.01
Declare Open_Window_0()
Enumeration
#Window_0 :
#Web_0 :
#String_0 :
#Button_0 :
#Text_0
EndEnumeration
Open_Window_0()
Repeat
Event =
WaitWindowEvent ()
GadgetID =
EventGadget ()
If Event =
#PB_Event_Gadget
If GadgetID =
#Button_0
SetGadgetText (
#Web_0 ,
GetGadgetText (
#String_0 ))
EndIf
EndIf
Until Event =
#PB_Event_CloseWindow
End
Procedure Open_Window_0()
If OpenWindow (
#Window_0 , 10,10, 800, 600,
"Internet" ,
#PB_Window_SystemMenu |
#PB_Window_SizeGadget |
#PB_Window_TitleBar )
If CreateGadgetList (
WindowID (
#Window_0 ))
WebGadget (
#Web_0 , 30, 10, 750, 520,
"http://www.meteo.fr" )
StringGadget (
#String_0 , 80, 550, 440, 20,
"http://www.meteo.fr" )
ButtonGadget (
#Button_0 , 530, 550, 50, 20,
"Go" )
TextGadget (
#Text_0 , 30, 550, 80, 20,
"Adresse :" )
EndIf
EndIf
EndProcedure