Redimensionnement image
cs_firewaller
Messages postés
4
Date d'inscription
jeudi 24 janvier 2002
Statut
Membre
Dernière intervention
22 octobre 2002
-
26 janv. 2002 à 21:19
cs_neo12 Messages postés 16 Date d'inscription mercredi 29 mai 2002 Statut Membre Dernière intervention 5 novembre 2002 - 29 mai 2002 à 22:50
cs_neo12 Messages postés 16 Date d'inscription mercredi 29 mai 2002 Statut Membre Dernière intervention 5 novembre 2002 - 29 mai 2002 à 22:50
2 réponses
PatriceVB
Messages postés
562
Date d'inscription
dimanche 16 décembre 2001
Statut
Modérateur
Dernière intervention
26 décembre 2007
27 janv. 2002 à 16:17
27 janv. 2002 à 16:17
Utilise un controle image avec la propriété stretch à true.
K'image aura la taille de ton controle. Pour garder la proportionnalité, tu n'as qu'a calculer la largeur et la longueur que tu veux en fonction de celles d'origine.
@+
K'image aura la taille de ton controle. Pour garder la proportionnalité, tu n'as qu'a calculer la largeur et la longueur que tu veux en fonction de celles d'origine.
@+
cs_neo12
Messages postés
16
Date d'inscription
mercredi 29 mai 2002
Statut
Membre
Dernière intervention
5 novembre 2002
29 mai 2002 à 22:50
29 mai 2002 à 22:50
salut !
je débarque à peine dans la communauté et ait le tour desquestions qui m'intéressent.
je suppose que depuis t'as trouvé la solution, mais voiçi uen portion de code pour redimensionner uen image dans une "picturebox". de plus l'image redimensionné est centré dans son "conteneur"
Par contre je n'ai aps encore trouvé comment l'afficher uen fois redimensionné, car en passant par "loadpicture" elle s'affiche uen fraction de secodne dans sa taille d'origine ???
enfin voilà
nota : image1 est un contrôle "picture" da^ns un contrôel "picture box (scrimg1)
ph = Image1.Height
pw = Image1.Width
rat = ph / pw
'si l'image est inférieur à la taille du conteneur. ne redimensionne pas celle ci
If pw <= ScrImg1.Width And ph <= ScrImg1.Height Then
Image1.Stretch = False
'cadre l'image verticalement et horizontalement
Image1.Top = (ScrImg1.ScaleHeight - Image1.Height) / 2
Image1.Left = (ScrImg1.ScaleWidth - Image1.Width) / 2
Else
If ratio_picturebox > ratio_image Then
Image1.Height = ScrImg1.ScaleHeight
Image1.Width = Image1.Height / rat
Image1.Left = (ScrImg1.ScaleWidth - Image1.Width) / 2
Else
Image1.Width = ScrImg1.ScaleWidth
Image1.Height = Image1.Width * rat
End If
If ScrImg1.ScaleHeight - Image1.Height > 0 Then
Image1.Top = (ScrImg1.ScaleHeight - Image1.Height) / 2
End If
End If
je débarque à peine dans la communauté et ait le tour desquestions qui m'intéressent.
je suppose que depuis t'as trouvé la solution, mais voiçi uen portion de code pour redimensionner uen image dans une "picturebox". de plus l'image redimensionné est centré dans son "conteneur"
Par contre je n'ai aps encore trouvé comment l'afficher uen fois redimensionné, car en passant par "loadpicture" elle s'affiche uen fraction de secodne dans sa taille d'origine ???
enfin voilà
nota : image1 est un contrôle "picture" da^ns un contrôel "picture box (scrimg1)
ph = Image1.Height
pw = Image1.Width
rat = ph / pw
'si l'image est inférieur à la taille du conteneur. ne redimensionne pas celle ci
If pw <= ScrImg1.Width And ph <= ScrImg1.Height Then
Image1.Stretch = False
'cadre l'image verticalement et horizontalement
Image1.Top = (ScrImg1.ScaleHeight - Image1.Height) / 2
Image1.Left = (ScrImg1.ScaleWidth - Image1.Width) / 2
Else
If ratio_picturebox > ratio_image Then
Image1.Height = ScrImg1.ScaleHeight
Image1.Width = Image1.Height / rat
Image1.Left = (ScrImg1.ScaleWidth - Image1.Width) / 2
Else
Image1.Width = ScrImg1.ScaleWidth
Image1.Height = Image1.Width * rat
End If
If ScrImg1.ScaleHeight - Image1.Height > 0 Then
Image1.Top = (ScrImg1.ScaleHeight - Image1.Height) / 2
End If
End If
