WDForge.org - Forums

Re: Défilement d'une image dans un champ image

Sujet: Re: Défilement d'une image dans un champ image
par drcharly93 sur 5/12/2004 20:38:27

Bonjour,

Partant d'un champ image qui s'appel: Image1
Contre ce champ on ajoute un champ Ascenseur Verticale :ASV
Contre ce champ on ajoute un champ Ascenseur Hrizontal :ASH

On créer une procédure Pour initialiser les champs
sNomFichier contient le chemin complet du fichier image à afficher dans le champ Image1.

PROCEDURE MiseAJour(sNomFichier)
nLargeur est un entier
nHauteur est un entier

nLargeur = ExtraitChaîne(InfoBitmap(sNomFichier), 2)
nHauteur = ExtraitChaîne(InfoBitmap(sNomFichier), 3)
ASH..BorneMax = nLargeur -Image1..Largeur
ASV..BorneMax = nHauteur - Image1..Hauteur

Dans le code A chaque modification du champ ASH

Image1..XImage = ASH..Valeur

Dans le code A chaque modification du champ ASV

Image1..YImage = ASV..Valeur