Salut Creepy,
Voici le code que j'utilise pour l'affichage :
Sub zoom_image()
'adaptation du zoom pour redimensionnement des contrôls et de l'USF
With Image1
.Height = .Picture.Height / m_zoom
.Width = .Picture.Width / m_zoom
.PictureSizeMode = fmPictureSizeModeZoom
grp_image.Width = .Width + 10
grp_image.Height = .Height + 10
USF_photo.Height = grp_image.Height + 70
If Image1.Width + 50 > 375 Then
USF_photo.Width = grp_image.Width + 30
Else
USF_photo.Width = 375
End If
End With
Z_lbl_task_num_img.Top = USF_photo.Height - Z_lbl_task_num_img.Height - 20
Z_lbl_task_nm_img.Top = Z_lbl_task_num_img.Top
Z_lbl_task_fin_bar.Top = Z_lbl_task_num_img.Top
z_lbl_fin_bar.Width = USF_photo.Width - z_lbl_fin_bar.Left
Z_lbl_task_fin_bar.Width = USF_photo.Width - Z_lbl_task_fin_bar.Left
end sub
Pour mon barbatruc pour l'instant c'est une surprise pour le 24!
DOnc je ne veut pas le mettre sur le forum pour le moment. Mais si tu as besoin de l'appli complet pour pouvoir mieux comprendre mon code envoie moi une adresse e mail sur ma PV et je te repost le tous.
B)
A+