Discussion :

[Angelishu]

Bonjour,

je suis nouveau en VB6 et j'aurais aimer savoir si il existait une fonction permettant de redimensionner une image dans une picture box!
J'entend par la, je dispose d'une picturebox qui doit restée de taille fixe, et une image qui est plus grande que la picturebox. Il faudrait donc redimensionner l'image a la taille de la picturebox tout en gardant la proportion!

Cela est-il possible?

Je vous remercie d'avance!!!

[zazaraignée]

Regarde dans l'aide du côté de ScaleX et ScaleY. Si t'as des problèmes, tu dis.

[Angelishu]

Merci de la réponse je vais essayer de regarder sa

[avigeilpro]

Autre solution, tu utilise un control Image et la propriété Stretch (attention, l'image s'adapte exactement à la taille du controle, donc pour les proportions il faut jouer sur la taille du controle : Height et Width)

[avigeilpro]

Voila une procédure pour charger une image dans un controle Image.

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
Const LimiteH = 2775
Const LimiteW = 4455
 
 
Public Sub ChargeImage(Adr As String)
    Dim Rapport As Single
    Image1.Stretch = True
    Image1.Picture = LoadPicture(Adr)
    Rapport = Image1.Picture.Height / Image1.Picture.Width
 
    If LimiteW * Rapport > LimiteH Then
      Image1.Height = LimiteH
      Image1.Width = LimiteH / Rapport
    Else
      Image1.Height = LimiteW * Rapport
      Image1.Width = LimiteW
    End If
End Sub

Les constantes LimiteH et LimiteW sont les valeurs maximale de la boite Image (taille maximale que l'on ne veut pas dépasser)

[Angelishu]

Merci j'avais trouvé en recherchant sur le scaleX/Y la propriété stretch d'un controle image :p
J'ai testé ta procédure et sa marche niquel! Me reste plus qu'a adapter sa dans mon code
Merci pour les reponses rapides!