Bonjour, je voudrais savoir comment adapter ou redimensionner une photo pour qu'elle s'affiche dans un cadre image, à la taille de celui ci.
Merci
Bonjour, je voudrais savoir comment adapter ou redimensionner une photo pour qu'elle s'affiche dans un cadre image, à la taille de celui ci.
Merci
Bonjour,
Pour l'affichage de photos dans un formulaire, tu as ce très bon tutoriel.
Pour ton problème plus spécifique, regarde la procédure DisplayPhoto dudit tutoriel.
Domi2
Moi je ne stock pas le nom de ma photo dans ma table, je récupere l'affichage de mes photos, en fonction de la référence de mes pièces. Mes photos sont només par le nom de la référence, et j'affiche une photo en face d'une référence, si la référence est égale au nom de la photo.
Je ne sais pas si il existe donc une autre solution possible pour redimensionner ma photo?
Merci
Actuelement voici le code que j'ai pour afficher ou non ma photo:
Je ne vois donc pas comment l'adapter avec
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 chemin = "X:\Maintenance\Public\GMAO\Photos\Piéces\" & Référence & ".JPG" verif = Dir(chemin) If verif = "" Then Form_DetailArticleHistorique.Image13.Picture = "X:\Maintenance\Public\GMAO\Photos\Piéces\null.JPG" Else Form_DetailArticleHistorique.Image13.Picture = chemin End If
Si quelqu'un voit?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 ' regarde si la hauteur de l'image dépasse celle du controle Picture If Me.imgPhoto.ImageHeight > Me.imgPhoto.Height Then ' met le controle en mode zoom Me.imgPhoto.SizeMode = 3 Else ' met le contrôle en mode respect de la taille originale Me.imgPhoto.SizeMode = 0 End If ' si la largeur dépasse et qu'on est en mode taille réelle ... If (Me.imgPhoto.ImageWidth > Me.imgPhoto.Width) And (Me.imgPhoto.SizeMode) = 0 Then ' on met en mode zoom Me.imgPhoto.SizeMode = 3 End If
Merci
Re,
Moi, je vois en lisant simplement le tutoriel
Domi2
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 chemin = "X:\Maintenance\Public\GMAO\Photos\Piéces\" & Référence & ".JPG" verif = Dir(chemin) If verif = "" Then Form_DetailArticleHistorique.Image13.Picture = "X:\Maintenance\Public\GMAO\Photos\Piéces\null.JPG" Else Form_DetailArticleHistorique.Image13.Picture = chemin End If DisplayPhoto
Ba s'est ce que j'ai fait non?
Mais il faut que je mette le module "diplayphoto" dans un module brut comme sa? Je n'y touche pas?
Je le place ou se code?
Merci
C'est bon j'ai trouvé merci beaucoup!![]()
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager