Dans l'exemple suivant nous avons ONG_TEST un onglet avec un premier volet invisible.
Dans un bouton de clonage, le code suivant va alternativement créer 10 volets et les supprimer.
Son action est réutilisable.
- Code: Tout sélectionner
lchp_Champ est un Champ
lc_Libelle est une chaine
SI ONG_Test..Occurrence > 1 ALORS
// Supprime les volets en remontant et en laissant le premier
POUR i = ONG_Test..Occurrence _A_ 2 PAS -1
ChampSupprime(ONG_Test[i])
FIN
SINON
// créé 10 volet par clonage du premier et les rends visibles
POUR i=1 _A_ 10
lc_Libellé = Répète(Caract( 65+(i-1)),i)
lchp_Champ <- ChampClone(ONG_Test[1], lc_Libellé)
lchp_Champ..Visible = Vrai
FIN
FIN
Dans le code de modification du volet affiché de ONG_Test on aura le code suivant.
Notez le MoiMême qui permet de s'affranchir de l'indice en cours dans l'onglet.
- Code: Tout sélectionner
SI MoiMême>1 ALORS
Trace(MoiMême[MoiMême]..Libellé)
FIN
Ainsi après un premier clic sur le bouton de clonage en cliquant sur le second volet affiché on a bien la trace "BB"
Un nouveau clic sur le bouton, les volets disparaissent...