Taille d'un controle en Twips ?

[Creepy]

Bonsoir,

je cherche à afficher une image dans un controle Image.

Taille de mon image : L 27cm par H 18cm.

J'ai lu que la taille d'un controle etait en twips et qu'il y avait 567 twips par centimetre.

J'ai donc fait 567 x 27 = 15309

J'ai donc mis en Width 15309. Et bien mon image ne rentre pas dans le controle Image elle est plus grande !

pourquoi ? Ne serait-ce pas 567 ?

Je suis certain de la taille de mon image donc le Pb ne vient pas de là !

Merci d'avance

@+

Creepy

 

[WILFRIED]

Salut christophe, José le fil,


Je suis entrain de bossé sur un barbatruc pour samedi qui utilise les zoom et autre dans un controls image, seulement je ne l'ai pas sur moi.

Je te renvoye cette après midi le code que j'utilise pour mon USF....

A+

J-3

 

[Creepy]

Hello all,

Merci de vos réponses.

J'attends ton barbatruc Wilfried !

@+

Creepy

 

[WILFRIED]

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+