tomnie
Messages postés10Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention25 août 2005
-
24 août 2005 à 15:36
tomnie
Messages postés10Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention25 août 2005
-
25 août 2005 à 13:47
Bonjour,
je suis en train de realiser un petit scanner d'image genre ACDSee, et
je souhaiterais que les images soient toutes centrées
horizontalement et verticalement. Si elles sont plus grandes que ma
form, je les redimmensionne.
Mon probleme est le suivant :
j'ai une form avec des menus et une statusbar. Mes images sont affichés
dans un controle image. Certaines photos (toutes mes images sont en
jpg) ne sont pas bien calées et deborde de la fenetre.
Si quelqu'un avait un bout de code qui puisse m'aider cela serait sympa.
tomnie
Messages postés10Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention25 août 2005 25 août 2005 à 13:45
salut,
j'ai trouvé la solution!!!
en fait l'unité retourné par la fonction
loadpicture(maphoto).width/heigth est exprime en unite himetric ce qui
equivaut a 0.01 mm.
donc pour resourdre ce probleme j'utilise toujours les scale comme
mesure de reference et je passe le scale mode en millimetre pour que
tout soit dans la meme unite.
Voici mon code qui fonctionne pour l'ensemble des images testées :
Public Function ImageDim(CheminDeLaPhoto As String, Imagebox As image, Form As Form, STB As StatusBar) As Boolean
tomnie
Messages postés10Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention25 août 2005 24 août 2005 à 17:09
salut et merci de m'avoir repondu aussi vite.
Par contre le code que tu m'as donné agrandit des images qui sont plus
petites que la taille de la form et qui donc n'ont null besoin de se
voir agrandit, ensuite il me manque toujours le bas des images.
Mais ton code est mieux que le mien donc je vais retravailler dessus pour voir si je peux l'ajuster à mes besoins.
tomnie
Messages postés10Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention25 août 2005 25 août 2005 à 13:47
salut,
j'ai trouvé la solution!!!
en fait l'unité retourné par la fonction
loadpicture(maphoto).width/heigth est exprime en unite himetric ce qui
equivaut a 0.01 mm.
donc pour resourdre ce probleme j'utilise toujours les scale comme
mesure de reference et je passe le scale mode en millimetre pour que
tout soit dans la meme unite.
Voici mon code qui fonctionne pour l'ensemble des images testées :
Public Function ImageDim(CheminDeLaPhoto As String, Imagebox As image, Form As Form, STB As StatusBar) As Boolean