Re: Défilement d'une image dans un champ image
Posté par drcharly93 le 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.
Dans le code A chaque modification du champ ASH
Dans le code A chaque modification du champ ASV
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
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=12&topic_id=1529&post_id=6279