DOCUMENTATION EN LIGNE
DE WINDEVWEBDEV ET WINDEV MOBILE

Aide / WLangage / Propriétés WLangage / Propriétés diverses
  • Exemple d'utilisation de la propriété AjoutTerminé
AjoutTerminé (Exemple)
Exemple d'utilisation de la propriété AjoutTerminé
Pour mettre en place cet exemple :
  • Créer une fenêtre. Saisir le code WLangage associé à l'événement "Initialisation" de cette fenêtre.
  • Créer un champ Bouton "BTN_Ajouter". Saisir le code WLangage correspondant à l'événement "Clic" de ce champ.
  • Créer un champ Bouton "BTN_Arrêter". Saisir le code WLangage correspondant à l'événement "Clic" de ce champ.
  • Créer et saisir la procédure du thread.
Pour tester cet exemple :
  • Afficher la fenêtre : le thread se lance, rien ne se passe. Ce fonctionnement est normal, car le thread attend si la pile est vide.
  • Cliquer sur le champ Bouton permettant l'ajout (BTN_Ajout) : seules les traces des fichiers sont affichées. La trace de fin n'est pas affichée.
  • Cliquer encore une fois sur le champ Bouton permettant l'ajout (BTN_Ajout) : seules les traces des fichiers sont affichées. La trace de fin n'est toujours pas affichée.
  • Cliquer sur le champ Bouton de terminaison (BTN_Arrêter) : la trace de fin s'affiche (le thread s'arrête).
  • Cliquer sur le champ bouton permettant l'ajout (BTN_Ajout) : rien ne se passe. Ce fonctionnement est normal car le thread est arrêté.
// --Evénement "Initialisation" de la fenêtre
// Dans le code d'initialisation de la fenêtre, lancer uniquement le thread
ThreadExécute("test", threadNormal, TraitementsDeFichiers)
// -- Evénement "Clic" sur le champ Bouton BTN_Ajouter
// Code d'ajout (permet de relancer le test)
sListfic est une chaîne = fListeFichier("c:\temp\*.*", frNonRécursif)
stUnFic est un STFile
gFilesnames.AjoutTerminé = Faux
POUR TOUTE CHAÎNE sUnfic DE sListfic SÉPARÉE PAR RC
stUnFic.sChemin = sUnfic
stUnFic.sNomfic = fExtraitChemin(sUnfic, fFichier + fExtension)
Empile(gFilesnames, stUnFic)
FIN
// -- Evénement "Clic" sur le champ Bouton BTN_Arrêter
// Code d'arrêt (pour contrôler le moment de l'arrêt dans l'exemple)
gFilesnames.AjoutTerminé = Vrai
// Procédure du thread (avec une trace à la fin)
PROCÉDURE TraitementsDeFichiers()
stTemp est un STFile
tt est un booléen
 
tt = Dépile(gFilesnames, stTemp, AttendSiVide)
TANTQUE tt
Trace(stTemp.sNomfic)
tt = Dépile(gFilesnames, stTemp, AttendSiVide)
FIN
Trace("fin")
Version minimum requise
  • Version 14
Documentation également disponible pour…
Commentaires
Cliquez sur [Ajouter] pour publier un commentaire

Dernière modification : 25/05/2022

Signaler une erreur ou faire une suggestion | Aide en ligne locale