Centrer une image dans un picturebox et la redimantionner

Résolu
Signaler
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
-
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
-
salut ,

dans mon soft je doit centrer des images dans des picturebox
je fait ceci

For p = 0 To 11
If p <= q - 1 Then
b$ = File1.List(p)
Picture2(p).AutoRedraw = True
Picture2(p).AutoSize = False
Picture2(p).Visible = True
Picture2(p).Picture = LoadPicture(File1.Path + "" + b$)
Else
Picture2(p).Visible = False
End If


Next p
Comment faire pour les redimantionner mais l'image pas la picturebox
et la centrer

Merci
A voir également:

1 réponse

Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
35
Bonjour,

Utilise la fonction PaintPicture, tu peut y présiser l'emplacement et la taille de destination

For p = 0 To 11
If p <= q - 1 Then
b$ = File1.List(p)
Picture2(p).AutoRedraw = True
Picture2(p).AutoSize = False
Picture2(p).Visible = True

Picture2(p).AutoRedraw = True
Picture2(p).ScaleMode = 3 '// On travaille en Pixel

Const PicSizeW As Integer = 100 '// Largeur à définir
Const PicSizeH As Integer = 75 '// Hauteur à définir

Picture2(p).PaintPicture LoadPicture(File1.Path + "" + b$), (Picture2(p).ScaleWidth - PicSizeW) / 2, (Picture2(p).ScaleHeight - PicSizeH) / 2, PicSizeW, PicSizeH
Picture2(p).Picture = Picture2(p).Image

Else
Picture2(p).Visible = False
End If
Next p

Kenji
<hr size="2" width="100%">
Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci