Discussion :

[moilou2]

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

[Domi2]

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

[moilou2]

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

[moilou2]

Actuelement voici le code que j'ai pour afficher ou non ma photo:

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

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
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

Si quelqu'un voit?

Merci

[Domi2]

Re,

Moi, je vois en lisant simplement le tutoriel

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

Domi2

[moilou2]

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

[moilou2]

C'est bon j'ai trouvé merci beaucoup!