Discussion :

[slick42]

Bonjour,

Je viens de mettre en place (avec succès pour une fois ) une ouverture de fenêtre dans un thread secondaire.
Tout fonctionne correctement mais reste le problème de la fermeture de cette même fenêtre.
Quand je ferme le thread secondaire, la fenêtre reste ouverte.

Ci-joint les bouts de codes correpondants :

Définition d'un événement pour l'ouverture de la fenêtre (fenêtre Menu)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
// Mise en place d'un événement pour gérer l'ouverture de la fenêtre "InfoAutomate"
gnIdEvenementInfoAutomate = Evénement("OuvertureInfoAutomate","*.*","DebutInfoAutomate")
SI gnIdEvenementInfoAutomate = 0 ALORS
	Erreur("Impossible de gérer l'ouverture de la fenêtre InfoAutomate", ErreurInfo())	
FIN

Mise en place du thread secondaire (un bouton de la fenêtre Menu)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
// Gestion InfoAutomate
	ThreadExécute("ThreadInfoAutomate",threadNormal,EcouteInfoAutomate)

Procedure EcouteInfoAutomate (Procedure locale de la fenêtre Menu)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
PROCEDURE EcouteInfoAutomate()
 
//Demande d'ouverture de la fenêtre "InfoAutomate"
PostMessage(Handle(Menu),"DebutInfoAutomate",0,0)

Procedure OuvertureInfoAutomate (Procedure locale de la fenêtre Menu)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
PROCEDURE OuvertureInfoAutomate()
 
// Ouverture de la fenêtre InfoAutomate
OuvreSoeur(InfoAutomate,Menu.SaisieDossier,Menu.SaisieNom)
FenEtat(InfoAutomate,Actif)
FenEtat(InfoAutomate,DessusTout)

et enfin la fermeture du thread secondaire (dans une partie de code de La fenêtre Menu)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
// Arrêt de la fenêtre InfoAutomate
ThreadArrête("ThreadInfoAutomate",500)

Merci par avance de vos réponses.

[Jannus]

Tu as essayé Ferme() avant ou après l'arrêt du thread ?

[slick42]

Merci ça fonctionne