Discussion :

[ENeite]

Bonjour,
Je souhaite créer une image un peu plus grande que ma photo pour pouvoir y placer une légende notamment.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
       ''Creation de l'image
        Dim img As Image = Image.FromFile("Addresse/de/l/image/source")
        Dim h As Integer = img.Height
        Dim l As Integer = img.Width
 
        Dim imgFin As Image = New Bitmap(CInt(9 / 8 * l), CInt(4 / 3 * h))
        Dim g As Graphics = Graphics.FromImage(imgFin)
        g.Clear(Color.White)
        g.DrawImage(img, CInt(0.1154 * l), CInt(7 / 300 * h))
 
 
        Dim imgFormat As Imaging.ImageFormat = Imaging.ImageFormat.Jpeg
        imgFin.Save("emplacement/de/l/image/d'arrivée", imgFormat)

Sauf que lorsque j'ouvre mon image enregistré ma photo fais à peine 1/4 de mon image au lieu de 8/9 en largeur et 3/4 en hauteur.
Quelqu'un saurait-il pourquoi ?

[MABROUKI]

Ce serait plutôt:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim imgFin As Image = New Bitmap(l*CInt(9 / 8  ), h*CInt(4 / 3))

bon code.