PureBasic

salut voila j'utilise la fonction
police = FontRequester(NomPolice$, TaillePolice, #PB_FontRequester_Effects)
dasn un de mes code ...
la fenetre s'ouvre je choisi mes parametre et quadn ej veut fermer sa ferme et sa reouvre la fenetre commment faire j'arrive aps a trouver commemnt la fermer merci de votre aide d'avance

Le Pb à l'air de se trouver dans ton code, il faudrait un extrait pour vérifier.

Code : Tout sélectionner

      event=WindowEvent() 
        Gadget = EventGadgetID() 
        Select Gadget 
            Case #Button_15
            police = FontRequester(NomPolice$, TaillePolice, #PB_FontRequester_Effects) 
            a$ = "Vous avez sélectionné la police suivante:"  + Chr(10) ; Chr(10) seulement nécessaire
            a$ + "Name:  " + SelectedFontName()               + Chr(10) ; pour le retour à la ligne
            MessageRequester("Information",a$,0)
            police$ = SelectedFontName()         
            Default 
         
        EndSelect

voila

c'est dans ta boucle qu'il faut modifier la gestion des évènements, sinon comme tu as fait c'est normal que ça se déclenche sans arrêt.

Serts toi de WaitWindowEvent()
de cette façon par exemple :

Code : Tout sélectionner

Repeat
  Event = WaitWindowEvent() 
  Select Event 
    Case #PB_EventGadget 
      Select EventGadgetID()
        
               Case #Button_15  
          police = FontRequester(NomPolice$, TaillePolice, #PB_FontRequester_Effects) 
          a$ = "Vous avez sélectionné la police suivante:"  + Chr(10) ; Chr(10) seulement nécessaire 
          a$ + "Name:  " + SelectedFontName()               + Chr(10) ; pour le retour à la ligne 
          MessageRequester("Information",a$,0) 
          police$ = SelectedFontName()          
        Default 
          
          
      EndSelect

Ca devrait aller tout de suite mieux.
@+

oui merci le seule problmeme ces que defois il fautq ue je clique plein, de fois avant quil accepte de me valider la touche et de maficher la fenetre

J'ai ce problème aussi, lorsque j'utilise ce bout de code pour la fermeture de la fenêtre, cela influe sur le comportement des gadgets.

Code : Tout sélectionner

  Repeat
    EventID.l = WaitWindowEvent()

  Until EventID = #PB_Event_CloseWindow

alors que comme ça, il y a pas de problème:

Code : Tout sélectionner

  Repeat
    EventID.l = WaitWindowEvent()
    
    Select EventID 
      Case #PB_Event_CloseWindow
        Quit=1
    EndSelect
    
  Until Quit = 1