Discussion :

[surrounded]

bonjour , dans un formulaire j'offre la possibilité d'ajouter 4 photos une fois ajouter je verifie leur grosseur afin que si ils sont plus grande que ma zone je change le mode de vue a zoom.

ca marche bien aucune erreur voici le code pour limage 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub DisplayPhoto1()
 
' Traitement en fonction de la taille de l'image
 
'PHOTO 1!!!!!!
' regarde si la hauteur de l'image dépasse celle du controle Picture
If Me.Image1.ImageHeight > Me.Image1.Height Then
    ' met le controle en mode zoom
    Me.Image1.SizeMode = 3
Else
    ' met le contrôle en mode respect de la taille originale
    Me.Image1.SizeMode = 0
End If
 
' si la largeur dépasse et qu'on est en mode taille réelle ...
If (Me.Image1.ImageWidth > Me.Image1.Width) And (Me.Image1.SizeMode) = 0 Then
    ' on met en mode zoom
    Me.Image1.SizeMode = 3
End If
 
End Sub

voici ma question, comme jai 4 photos et tous doivent utiliser cette fonction sur le formulaire, y a til un moyen de passer en argument un format image dans la fonction ???? Si oui comment???

afin que je puisse appeler dans mon formulaire la fonction de cette facon

displayphoto ( image1)
displayphoto (image2) etc...

image1 et image 2 sont des objets image

[cafeine]

Hello,

je reconnais le code de mon vieux tuto sur les photos ...

oui il y a moyen de "factoriser" ton code ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sub DisplayPhoto1(byval ctlImage As String)

et remplace tous les Me.Photo1 par Me.Controls(ctlImage)

et le code d'appel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 displayphoto("image1")

[surrounded]

eh oui tu as raison c bel et bien ton code pour la gestion des images vraiment bon ce tuto en passant

merci pour la réponse rapide ca fonctionne a merveille merci!!!!