Page 1 sur 1
list de tous les gadget d'un onglet [ RESOLU ]
Publié : dim. 20/mai/2012 14:48
par Shade
Salut tous le monde
je sollicite votre aide pour un petit soucis de débutant
je suis actuellement en cour de prog d'un navigateur multi onglet
est mon soucis ces que je voudrai récupérai le nom du webgadget actif dans l'onglet actif
mais je ne trouve pas la solution
si vous avez une petite idée je suis preneur
je vous remercie d'avance
Re: list de tous les gadget d'un onglet
Publié : dim. 20/mai/2012 15:33
par Ar-S
Salut,
Tu as plusieurs webgadgets dans un panelgadget ?
Donne nous du code ce sera plus claire stp.
Je t'invite aussi à regarder les commandes Get.....
Getgadgettext(), getgadgetitemtext(), GetGadgetState() etc...
Re: list de tous les gadget d'un onglet
Publié : dim. 20/mai/2012 15:52
par Shade
merci pour ta reponse mais j'ai deja regarder mais je n'est pas trouver de solution ou ces moi qui l'utilise mal possible aussi
voici tous mon code
Code du fichier Principal.pb
Code : Tout sélectionner
; PureBasic Visual Designer v3.95 build 1485 (PB4Code)
;- Window Constants
;
Enumeration
#Window_0
EndEnumeration
;- MenuBar Constants
;
Enumeration
#MenuBar_0
EndEnumeration
Enumeration
#End
#MENU_13
#MENU_11
#MENU_12
#MENU_9
#MENU_10
EndEnumeration
;- Gadget Constants
;
Enumeration
#Nav
#BAdresse
#Go
#Prec
#Suiv
#Panel_0
#New_Onglet
EndEnumeration
;- StatusBar Constants
;
Enumeration
#StatusBar_2
EndEnumeration
Procedure Open_Window_0()
If OpenWindow(#Window_0, 230, 50, 569, 569, "Navigator", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar )
If CreateMenu(#MenuBar_0, WindowID(#Window_0))
MenuTitle("Fichier")
MenuItem(#End, "Quitter")
MenuTitle("?")
MenuItem(#MENU_11, "Mise a Jour")
MenuBar()
MenuItem(#MENU_9, "Aide")
EndIf
If CreateStatusBar(#StatusBar_2, WindowID(#Window_0))
EndIf
If CreateGadgetList(WindowID(#Window_0))
StringGadget(#BAdresse, 100, 30, 400, 20, "")
ButtonGadget(#Go, 520, 30, 40, 20, "Go")
ButtonGadget(#Prec, 0, 30, 40, 20, "<--")
ButtonGadget(#Suiv, 50, 30, 40, 20, "-->")
ButtonGadget(#New_Onglet, 0, 0, 70, 20, "+ Onglet")
;- Panel0
PanelGadget(#Panel_0, 0, 60, 570, 470)
AddGadgetItem(#Panel_0, -1, "Tab 1")
WebGadget(#Nav, -2, -2, 570, 450, "about:blank")
CloseGadgetList()
EndIf
EndIf
EndProcedure
Est le code du main.pb
Code : Tout sélectionner
InitNetwork()
IncludeFile "Principal.pb"
Element.i = (1)
PosNav.l = 1000
PosNavFin.l
ExploActive.l
Name.s
Procedure Quit()
End
EndProcedure
Procedure Go(ExploActive.l)
adresse.s = GetGadgetText(#BAdresse)
SetGadgetText(#Nav, adresse)
EndProcedure
Procedure Redimentionnement()
Largeur.i = WindowWidth(#Window_0)
Hauteur.i = WindowHeight(#Window_0)
Hauteur = Hauteur - 90
ResizeGadget(#Nav, 0, 0, Largeur-10, Hauteur)
ResizeGadget(#Panel_0, 0, 50, Largeur, Hauteur)
EndProcedure
Procedure MAJ()
; Supprimer par modérateur
EndProcedure
Procedure KillProcess(pid.i)
;
Define phandle.i
Define result.b = #False
phandle = OpenProcess_(#PROCESS_TERMINATE, #False, pid)
If phandle <> #Null
If TerminateProcess_(phandle, 1)
result = #True
EndIf
CloseHandle_(phandle)
EndIf
ProcedureReturn result
EndProcedure
Procedure Onglet(PosNavFin.l)
OpenGadgetList(#Panel_0, Element)
AddGadgetItem(#Panel_0, -1, Str(PosNavFin))
WebGadget(PosNavFin, -2, -2, 570, 450, "explo")
CloseGadgetList()
EndProcedure
Open_Window_0()
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case #Go
ExploActive = GetGadgetItemState(#Panel_0, Element)
Go(ExploActive)
Case #New_Onglet
If PosNavFin > 1000
PosNavFin = PosNavFin + 1
Else
PosNavFin = PosNav + 1
EndIf
Onglet(PosNavFin.l)
EndSelect
Case #PB_Event_Menu
Select EventMenu()
Case #End
Quit()
Case #MENU_11
MAJ()
EndSelect
Case #PB_Event_SizeWindow
Redimentionnement()
EndSelect
Until Event = #PB_Event_CloseWindow
merci d'avance pour vos reponse
Re: list de tous les gadget d'un onglet
Publié : dim. 20/mai/2012 17:28
par Ar-S
Est-ce celà que tu veux ?
Re: list de tous les gadget d'un onglet
Publié : dim. 20/mai/2012 17:32
par G-Rom
NE PAS EXÉCUTER LE CODE, IL FAIT APPEL A MAJ.EXE QUI VIENS DU NET
Merci de ne pas diffuser se genre de code sur le forum.
Pour ton problème , oriente toi vers les map.
Re: list de tous les gadget d'un onglet
Publié : dim. 20/mai/2012 18:12
par Ar-S
Ou bien commentez les lignes
Code : Tout sélectionner
; ReceiveHTTPFile( "http://wikidevprog.org/MAJ/Navigator/MAJ.exe", "MAJ.exe")
; RunProgram("MAJ.exe");
Même si cela ne craint rien tant qu'on ne clique pas sur "Mise à jour"
@Shade, il serait effectivement bon de ne pas faire télécharger d'exe aux utilisateurs de ton programme, surtout vu qu'il n'est pas du tout complet.
Re: list de tous les gadget d'un onglet
Publié : dim. 20/mai/2012 18:16
par Le Soldat Inconnu
J'ai supprimé la partie suspecte du code. Excuse nous d'être méfiant, on a déjà eu des soucis de programmeurs qui postait des codes volontairement dangereux.
Cordialement
Re: list de tous les gadget d'un onglet
Publié : dim. 20/mai/2012 19:14
par Shade
nan pas de soucis ces normal moi meme je me suis fais avoir j'aurais du le mettre en commentaire
pour le bout de code Ar - s je teste sa de suite
je vous tien au courant dans 5 min
Re: list de tous les gadget d'un onglet
Publié : dim. 20/mai/2012 19:43
par Shade
Yes nikel les gars sa marche nikel
je vous remercie
pour ceux qui veule il pourrons faire une mise a jour du log pour voir se que sa donne garantie sans virus
est encore merci
Re: list de tous les gadget d'un onglet
Publié : mar. 22/mai/2012 7:48
par dayvid
Ya plus qu'à marquer "Résolue" dans le titre du sujet
Se que je pense jamais à faire moi
Re: list de tous les gadget d'un onglet
Publié : mar. 22/mai/2012 10:27
par Ar-S
Ya plus qu'à marquer "Résolue" dans le titre du sujet
Résolu
