Remplir une Zone Répétée par programmation

Remplir une Zone Répétée par programmation​

Prérequis :
-- Un champ Zone Répétée : [ZR_ZoneRépétée]
-- Un champ IMAGE appartenant à cette zone Répétée : [IMG_Photo]

Exemple :
Remplissage de la zone répétée avec l'ensemble des images qui se trouvent dans un répertoire donné.

Code de remplissage :

Code (Text):

// Déclaration Des Variables
UnFichier, ResListeFichier , Extention sont des chaînes
tabChaine est un tableau de chaînes = [".jpg",".jpeg",".bmp","png",".gif",".ico",".tif"]
Indice est un entier=0

// Liste les fichiers de tout les types Image présents dans "C:\Pictures".
// Le parcours se fait également dans les sous-répertoires et est interruptible.
ResListeFichier = fListeFichier("C:\Pictures\*.*", frRécursif + frInterruptible)

// Initialisation de zone répétée ZR_ZoneRépétée
ZoneRépétéeSupprimeTout(ZR_ZoneRépétée)

// Pour chaque fichier trouvé
POUR TOUTE CHAÎNE UnFichier DE ResListeFichier SEPAREE PAR RC
 
     // Determiner l'extention
     Extention=(fExtraitChemin(UnFichier,fExtension))

    // Comparer l'extention
    SI Contient(Extention, tabChaine)
      // Ajout d'une répétition vide
      ZoneRépétéeAjoute(ZR_ZoneRépétée)

     // Positionnement sur la répétition vide
      Indice = ZoneRépétéeOccurrence(ZR_ZoneRépétée)

     // Puis initialisation des attributs
     ZR_ZoneRépétée[Indice].IMG_Photo=UnFichier
  FIN

FIN

ZoneRépétéeAffiche(ZR_ZoneRépétée)

 

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

svp , j'ai un problem avec un bouton dans la zone repetee , le bouton ne marche pas , mercii bcp

Cliquez pour agrandir...