centrer une image dans un picturebox et la redimantionnerRésolu

Question

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

Utilisateur anonyme · Accepted Answer

Bonjour,

Utilise la fonction PaintPicture, tu peut y pr&#233;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 &#224; d&#233;finir
    Const PicSizeH As Integer = 75 '// Hauteur &#224; d&#233;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&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

Centrer une image dans un picturebox et la redimantionner

1 réponse

Discussions similaires