Enrouler/Dérouler un champ Arbre par programmation

DOCUMENTATION EN LIGNE
DE WINDEV, WEBDEV ET WINDEV MOBILE

Version :

Accueil | Connexion | Français (générique)

Aide / Développer une application ou un site / Champs, fenêtres et pages / Champs : Types disponibles / Champ Arbre

Enrouler/Dérouler un arbre par programmation
Exemple

WINDEV

WEBDEV

WINDEV Mobile

Autres

Voir Aussi

Enrouler/Dérouler un champ Arbre par programmation

Enrouler/Dérouler un arbre par programmation

Pour enrouler un arbre par programmation, il suffit d'utiliser la fonction ArbreEnroule.
Pour dérouler un arbre par programmation, il suffit d'utiliser la fonction ArbreListeFils combinée avec une procédure locale spécifique.

Remarque : Pour optimiser le remplissage d'un champ Arbre, il est possible d'utiliser la propriété AjouteFilsDifféré sur les lignes du champ Arbre. Cette propriété permet de définir la procédure à exécuter pour le remplissage du niveau à dérouler. La recherche et le remplissage des fils ne sont effectués que lorsque l'utilisateur demande à les voir.

Exemple

Les différents codes suivants permettent :

d'initialiser un champ Arbre.
de dérouler une partie du champ Arbre.
d'enrouler le champ Arbre.

Initialiser le champ Arbre par programmation :

ArbreAjoute(ARBRE_RecetteTV, "Recette" + TAB + "Dessert", "GATEAU-.BMP", "GATEAU-.BMP")
ArbreAjoute(ARBRE_RecetteTV, "Recette" + TAB + "Dessert" + TAB + "Glace")
ArbreAjoute(ARBRE_RecetteTV, "Recette" + TAB + "Dessert" + TAB + "Glace" + ...
		TAB + "Vanille", "SUIVAN5-.BMP")
ArbreAjoute(ARBRE_RecetteTV, "Recette" + TAB + "Dessert" + TAB + "Glace" + ...
		TAB + "Fraise", "SUIVAN5-.BMP")
ArbreAjoute(ARBRE_RecetteTV, "Recette" + TAB + "Dessert" + TAB + "Glace" + ...
		TAB + "Chocolat", "SUIVAN5-.BMP")
ArbreAjoute(ARBRE_RecetteTV, "Recette" + TAB + "Dessert" + TAB + "Coupe")
ArbreAjoute(ARBRE_RecetteTV, "Recette" + TAB + "Dessert" + TAB + "Coupe" + ...
		TAB + "Pêche Melba", "SUIVAN5-.BMP")
ArbreAjoute(ARBRE_RecetteTV, "Recette" + TAB + "Dessert" + TAB + "Coupe" + ...
		TAB + "Poire belle hélène", "SUIVAN5-.BMP")
ArbreAjoute(ARBRE_RecetteTV, "Recette" + TAB + "Dessert" + TAB + "Coupe" + ...
		TAB + "Colonel", "SUIVAN5-.BMP")
ArbreAjoute(ARBRE_RecetteTV, "Recette" + TAB + "Dessert" + TAB + "Tarte aux pommes")
ArbreAjoute(ARBRE_RecetteTV, "Recette" + TAB + "Dessert" + TAB + "Tarte aux pommes" + ...
		TAB + "à la crème fraîche", "SUIVAN5-.BMP")
ArbreAjoute(ARBRE_RecetteTV, "Recette" + TAB + "Dessert" + TAB + "Tarte aux pommes" + ...
		TAB + "au calvados", "SUIVAN5-.BMP")
ArbreAjoute(ARBRE_RecetteTV, "Recette" + TAB + "Dessert" + TAB + "Crème brûlée", "SUIVAN5-.BMP")
ArbreAjoute(ARBRE_RecetteTV, "Recette" + TAB + "Dessert" + TAB + "Vacherin", "SUIVAN5-.BMP")

Dérouler tous les éléments : La procédure "DérouleTout" est appelée pour chaque "fils" trouvé. Cette procédure déroule tous les noeuds "fils" enroulés du noeud "Dessert".

// Liste les "fils" du noeud "Desserts" dans l'arbre "ARBRE_RecetteTV"
// La procédure "DérouleTout" est appelée
// pour chaque "fils" trouvé du noeud "Dessert"
Res = ArbreListeFils(ARBRE_RecetteTV, "Recette" + TAB + "Dessert", "DérouleTout")

// Procédure locale "DérouleTout"
// Cette procédure déroule tous les noeuds "fils" enroulés du noeud "Desserts"
PROCÉDURE DérouleTout(ARBRE_RecetteTV, CheminFils, FilsTrouvé, Niveau, Pointeur)
// L'élément trouvé est-il une feuille ?
SI ArbreTypeElément(ARBRE_RecetteTV, CheminFils + FilsTrouvé) = aFeuille ALORS
	RETOUR  // Retour à la fonction ArbreListeFils
SINON
	// L'élément trouvé est-il enroulé ?
	SI ArbreEtat(ARBRE_RecetteTV, CheminFils + FilsTrouvé) = aEnroule ALORS
		ArbreDéroule(ARBRE_RecetteTV, CheminFils + FilsTrouvé)
	FIN
FIN

Enrouler le noeud "Dessert".

// Enroule le noeud "Dessert" dans l'arbre "ARBRE_RecetteTV"
Res = ArbreEnroule(ARBRE_RecetteTV, "Recette" + TAB + "Dessert")

Voir Aussi

Version minimum requise

Version 9

Commentaires

Cliquez sur [Ajouter] pour publier un commentaire

Dernière modification : 13/09/2024

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