

//Déclaration globale de fenêtre XXX...
// Nombre d'enregistrement actif dans le fichier "NomFichier"
gnNbrEnreg est un entier = HNbEnr(<NomFichier>,hEtatActif)
// Incrément de contrôle
gnCompteur est un entier
//Initialisation de fenêtre XXX...
// Affichage du premier enregistrement
HLitPremier(NomFichier, NomClé)
FichierVersEcran()
gnCompteur = 1
//Clic sur BTN_PRECEDENT...
SI gnCompteur > 1 ALORS
HLitPrécédent(NomFichier, NomClé)
FichierVersEcran()
gnCompteur -= 1
SINON
info("Début du fichier")
FIN
//Clic sur BTN_SUIVANT...
SI gnCompteur < gnNbrEnreg ALORS
HLitSuivant(NomFichier, NomClé)
FichierVersEcran()
gnCompteur +=1
SINON
Info("Fin de fichier")
FIN


//Déclaration globale de fenêtre XXX...
// Nombre d'enregistrement actif dans la table
gnNbrEnreg est un entier
// Incrément de contrôle
gnCompteur est un entier
//Initialisation de Table_images :
HFiltre(Images,NumLeçons,LIB_Leçon)
ListeAffiche(TABLE_Images)
gnCompteur = 1
IMG_Image1 = TABLE_Images[gnCompteur][Numéro_de_la_colonne_Chemin_image]
gnNbrEnreg = TableOccurrence(TABLE_Images)
//Clic sur BTN_PRECEDENT...
SI gnCompteur > 1 ALORS
gnCompteur --
IMG_Image1 = TABLE_Images[gnCompteur][Numéro_de_la_colonne_Chemin_image]
SINON
Info("Première image")
FIN
//Clic sur BTN_SUIVANT...
SI gnCompteur < gnNbrEnreg ALORS
gnCompteur ++
IMG_Image1 = TABLE_Images[gnCompteur][Numéro_de_la_colonne_Chemin_image]
SINON
Info("Dernière image")
FIN




Retourner vers Forum Windev 10
Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 0 invités