[Résolu] Petit Problème ouverture 2ème fenêtre

[Clad3815]

J'ai tester sa :

Code : Tout sélectionner

Procedure Open_Window_1()
  If OpenWindow(#Window_1, 300, 6, 310, 555, "Activation du logiciel",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    ;If CreateGadgetList(WindowID(#Window_1))
      WebGadget(#Web_4, 0, 0, 330, 570, "http://clad38500.free.fr/metin2.php")
      
    ;EndIf
  EndIf
EndProcedure

Open_Window_0()
Repeat

Event = WindowEvent()
If Event = #PB_Event_Gadget
Select EventGadget()
Case #Button_0
MessageRequester("Blabla pour Bouton 0",a$,#PB_MessageRequester_Ok)
Case #Button_1
If Open_Window_1()
EndIf 
End
EndSelect
EndIf
Until event = #PB_Event_CloseWindow

J'ai trouver ^^Mais quand je clique sa ouvre la fenêtre et sa quitte tout

[Patrick88]

MessageRequester(Titre$, Message$, Options)

[Clad3815]

Oui j'ai éditer ^^

[guerrier001]

oui est ce que tu a penser a faire en sorte que tu ferme la fenetre 0 mais tu ouvre le 1 et tu fait en sorte que c'est quand tu appuie sur le bouton echap qu'il sort.

[Patrick88]

vite fait, parce que là, faut que je parte au boulot
en gros il faut que tu testes quel est le bouton de fermeture de la fenetre
qui a été cliqué.

Code : Tout sélectionner

Procedure Open_Window_1()
  If OpenWindow(#Window_1, 300, 6, 310, 555, "Activation du logiciel",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    ;If CreateGadgetList(WindowID(#Window_1))
      WebGadget(#Web_4, 0, 0, 330, 570, "http://clad38500.free.fr/metin2.php")
     
    ;EndIf
  EndIf
EndProcedure

Open_Window_0()
quit.b = 0
Repeat

Event = WindowEvent()
select event
  case #PB_Event_Gadget
    select EventGadget()
Case #Button_0
MessageRequester("Blabla pour Bouton 0",a$,#PB_MessageRequester_Ok)
Case #Button_1
If Open_Window_1()
EndIf
    endselect
  case #pb_event_closewindow
    If EventWindow()=#Window_0
      quit=1
    endif
endselect

Until quit>0

[/code]

[Clad3815]

Comme je l'ai dit plus haut j'ai jamais travailler avec 2 Fenêtres

Je maitrise beaucoup avec une seule mais avec 2 je sèche

[Clad3815]

vite fait, parce que là, faut que je parte au boulot
en gros il faut que tu testes quel est le bouton de fermeture de la fenetre
qui a été cliqué.

Code : Tout sélectionner

Procedure Open_Window_1()
  If OpenWindow(#Window_1, 300, 6, 310, 555, "Activation du logiciel",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    ;If CreateGadgetList(WindowID(#Window_1))
      WebGadget(#Web_4, 0, 0, 330, 570, "http://clad38500.free.fr/metin2.php")
     
    ;EndIf
  EndIf
EndProcedure

Open_Window_0()
quit.b = 0
Repeat

Event = WindowEvent()
select event
  case #PB_Event_Gadget
    select EventGadget()
Case #Button_0
MessageRequester("Blabla pour Bouton 0",a$,#PB_MessageRequester_Ok)
Case #Button_1
If Open_Window_1()
EndIf
    endselect
  case #pb_event_closewindow
    If EventWindow()=#Window_0
      quit=1
    endif
endselect

Until quit>0

A merci super j'ai plus qu'a ordonner la fermeture avec la croix Merci beaucoup

[guerrier001]

Si on a résolu ton problème édit le premier post en changeant le titre et met édit a coté du titre donner
exemple d'un post:

titre du problème:
Problème de moteur 3D

Quand résolu:
[Résolu] Problème de moteur 3D

[Clad3815]

Oui désolé je devais partir au taf

Merci beaucoup a tous, et merci de ne pas m'avoir envoyer chier comme la plus part des Fofo

[guerrier001]

on sera toujours, ou presque toujours (car c'est pas a 1h du mat que tu va vouloir que l'on règle ton problème quand même !!!) la pour toi

[kerkael]

Merci au Soldat Inconnu pour sa méthode de gestion multifenêtre.