list de tous les gadget d'un onglet [ RESOLU ]

[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

[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...

[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

[Ar-S]

Est-ce celà que tu veux ?

Code : Tout sélectionner

Debug GetGadgetItemText(#Panel_0, GetGadgetState(#Panel_0))

[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.

[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.

[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

[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

[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

[dayvid]

Ya plus qu'à marquer "Résolue" dans le titre du sujet
Se que je pense jamais à faire moi

[Ar-S]

Ya plus qu'à marquer "Résolue" dans le titre du sujet

Résolu