Lorsque le texte d'écriture sur l'image - image trouvée grande taille

Question

Lorsque le texte d'écriture sur l'image - image trouvée grande taille Origanl Image: 32 KB Après Ajouter du texte sur l'image: 500 KB

On Error Resume Next 
    My.Computer.FileSystem.DeleteFile(DbPath + "\Pictures\" + "orign" + ".jpg") 
    PictureBox2.Image.Save(DbPath + "\Pictures\" + "orign" + ".jpg", Imaging.ImageFormat.Jpeg) 
    'End If 
    Dim bmp = Bitmap.FromFile(DbPath + "\Pictures\" + "orign" + ".jpg") 
    'Dim bmp = Bitmap.FromFile("orig.jpg") 
    Dim newImage = New Bitmap(bmp.Width, bmp.Height + 80) 

    Dim gr = Graphics.FromImage(newImage) 
    gr.Clear(Color.White) 
    gr.DrawImageUnscaled(bmp, 0, 0) 
    gr.DrawString(MigraID.Text & Space(1) & MigraName.Text & Space(1) & IqamaNum.Text & Space(1) & DatePicH.Text, 
    New Font("Arial", 27), 
    New SolidBrush(Color.Black), New RectangleF(0, bmp.Height, bmp.Width, 80)) 
    bmp.Dispose() 
    gr.Dispose() 

    newImage.Save(DbPath + "\Pictures\" + MigraID.Text + ".jpg") 
    PictureBox2.Image = Image.FromFile(DbPath + "\Pictures\" + MigraID.Text + ".jpg") 

Answer 1

Lorsque vous ne spécifiez le format, la valeur par défaut est "png". De Image.Save Method

Si aucun encodeur existe pour le format de fichier de l'image, l'encodeur Portable Network Graphics (PNG) est utilisé.

Vous devez spécifier le format:

newImage.Save(DbPath + "\Pictures\" + MigraID.Text + ".jpg", ImageFormat.Jpeg)