VB.Net圖片背景保存

我需要保存PictureBox，包括其背景到JPG文件在硬盤中; 到目前爲止，我可以從資源加載圖片，然後將PictureBox保存到硬盤驅動器，但它刪除背景; 我的代碼如下：VB.Net圖片背景保存

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 
    PictureBox1.Image = My.Resources.ResourceManager.GetObject("test.jpg") 
    Dim Image As New Bitmap(800, 400) 
    Dim MekSaveImage As Graphics = Graphics.FromImage(Image) 
    For Parts = 0 To 3 
     RRRR = 10 + Parts * 198 
     Dim RectPen As New Pen(Color.Red) 
     RectPen.Width = 2 
     Dim rect As New Rectangle(RRRR, 10, 188, 300) 
     MekSaveImage.DrawRectangle(RectPen, rect) 
    Next 
    PictureBox1.Image = Image 
    PictureBox1.Image.Save("C:\Test\Test.jpg", Imaging.ImageFormat.Jpeg) 
End Sub

在此先感謝幫助/評論。

來源

2014-09-23 Abbas1999

在循環之前，使用MekSaveImage對象將picturebox的'.BackgroundImage'繪製到'Image'。 – Jens 2014-09-23 07:48:39

謝謝Jens的評論;大概需要2行代碼;你能告訴我代碼嗎...我正在嘗試，但似乎我犯了一些錯誤。 – Abbas1999 2014-09-23 08:22:05

所以我想你在test.jpg有你的Backgroundimage，並且想在上面畫矩形。

從圖像開始。資源本身沒有改變。

Dim BackgroundImage As Bitmap = My.Resources.ResourceManager.GetObject("test.jpg")

從該圖像中創建一個圖形對象，並在頂部繪製矩形。您不需要從新圖像創建圖形圖像。你可以使用現存的，然後將其用作畫布。

Using g As Graphics = Graphics.FromImage(BackgroundImage) 
    'Draw the Rectangles 
    Using RectPen As New Pen(Color.Red) 
     RectPen.Width = 2 
     For Parts = 0 To 3 
      RRRR = 10 + Parts * 198 
      Dim rect As New Rectangle(RRRR, 10, 188, 300) 
      g.DrawRectangle(RectPen, rect) 
     Next 
    End Using 'RectPen 
End Using 'g 
PictureBox1.Image = BackgroundImage 'Display the result 
BackgroundImage.Save("C:\Test\Test.jpg", Imaging.ImageFormat.Jpeg) 'Save to disk.

我使用Using塊，以確保處置的圖形ressources對象和筆。

來源

2014-09-23 08:47:48 Jens

VB.Net圖片背景保存

回答

相關問題