PICTUREBOX
Ola galera,
Estou com uma pedra no meu sapato e gostaria de uma ajuda para tirar esta pedra.
Vamos lá
Estou querendo salvar em um arquivo, uma imagem que esta no picturebox e neste picturebox tem uma cor de fundo vamos dizer que a cor seja [Ô]preto[Ô] então salvaria o arquivo a copia fiel da imagem vizualizada.
Obrigado a todos.
Estou com uma pedra no meu sapato e gostaria de uma ajuda para tirar esta pedra.
Vamos lá
Estou querendo salvar em um arquivo, uma imagem que esta no picturebox e neste picturebox tem uma cor de fundo vamos dizer que a cor seja [Ô]preto[Ô] então salvaria o arquivo a copia fiel da imagem vizualizada.
Obrigado a todos.
Dim local As String
Dim img = New Bitmap(picImagem.Image)
Dim saveFileDialog1 As New SaveFileDialog()
saveFileDialog1.Filter = [Ô]JPeg Image|*.jpg|Bitmap Image|*.bmp|Gif Image|*.gif[Ô]
saveFileDialog1.Title = [Ô]Save an Image File[Ô]
saveFileDialog1.ShowDialog()
If saveFileDialog1.FileName <> [Ô][Ô] Then
local = saveFileDialog1.FileName
img.Save(local, System.Drawing.Imaging.ImageFormat.Jpeg)
End If
Dim img = New Bitmap(picImagem.Image)
Dim saveFileDialog1 As New SaveFileDialog()
saveFileDialog1.Filter = [Ô]JPeg Image|*.jpg|Bitmap Image|*.bmp|Gif Image|*.gif[Ô]
saveFileDialog1.Title = [Ô]Save an Image File[Ô]
saveFileDialog1.ShowDialog()
If saveFileDialog1.FileName <> [Ô][Ô] Then
local = saveFileDialog1.FileName
img.Save(local, System.Drawing.Imaging.ImageFormat.Jpeg)
End If
http://www.macoratti.net/vbna_cp2.htm
Obrigado amigo Jaba
Eu consegui e estou compartilhando o código.
[ô][ô][ô] <summary>Captura todo conteúdo do picture incluindo a cor do background.</summary>
[ô][ô][ô] <param name=[Ô]objeto[Ô]>Informe o nome do PictureBox ou do Panel.</param>
[ô][ô][ô] <returns></returns>
[ô][ô][ô] <remarks></remarks>
Public Function CaptureImage(ByVal objeto As Object) As Image
Dim s As Size = objeto.Size
Dim memoryImage = New Bitmap(s.Width - 1, s.Height - 1)
Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage)
Dim ScreenPos As Point = objeto.PointToScreen(New Point(0, 0))
memoryGraphics.CopyFromScreen(ScreenPos.X, ScreenPos.Y, 0, 0, s)
Return memoryImage
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
PictureBox2.Image = CaptureImage(PictureBox1)
Panel1.BackgroundImage = CaptureImage(PictureBox1)
End Sub
Eu consegui e estou compartilhando o código.
[ô][ô][ô] <summary>Captura todo conteúdo do picture incluindo a cor do background.</summary>
[ô][ô][ô] <param name=[Ô]objeto[Ô]>Informe o nome do PictureBox ou do Panel.</param>
[ô][ô][ô] <returns></returns>
[ô][ô][ô] <remarks></remarks>
Public Function CaptureImage(ByVal objeto As Object) As Image
Dim s As Size = objeto.Size
Dim memoryImage = New Bitmap(s.Width - 1, s.Height - 1)
Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage)
Dim ScreenPos As Point = objeto.PointToScreen(New Point(0, 0))
memoryGraphics.CopyFromScreen(ScreenPos.X, ScreenPos.Y, 0, 0, s)
Return memoryImage
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
PictureBox2.Image = CaptureImage(PictureBox1)
Panel1.BackgroundImage = CaptureImage(PictureBox1)
End Sub
Tópico encerrado , respostas não são mais permitidas