Postado Setembro 9, 2013 11 anos Irá precisar de:4 - Buttons 1- PictureBox 1- SaveFileDialog - - Tutorial:#Buttons: Button1 = Capturar Button2 = Salvar Imagem Button3 = Limpar/Apagar Button4 = Fechar programa - #PictureBox: Deixe do tamanho que desejar, de qualquer modo/tamanho o programa ira salvar a sua tela inteira. De um click e deixe a borda "Fixed3D" - #SaveFileDialog: Não precisa mexer! - - Agora é so dar 2 click no FORM1, Apagar tudo e adicionar o código completo. - - Source/Código: Public Class Form1 Dim timp As New DateTime() Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Opacity = 0 Me.ShowInTaskbar = False timp = Now() Dim bounds As Rectangle Dim _tela As System.Drawing.Bitmap Dim graph As Graphics bounds = Screen.PrimaryScreen.Bounds _tela = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb) graph = Graphics.FromImage(_tela) graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy) PictureBox1.Image = _tela Me.Opacity = 100 Me.ShowInTaskbar = True Button2.Enabled = True Button3.Enabled = True End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim filesavedialog1 As New SaveFileDialog SaveFileDialog1.Title = "Salvar tela" SaveFileDialog1.FileName = "tela_" & timp.ToString("HH-mm-dd-MM-yyyy") & ".png" SaveFileDialog1.Filter = "PNG File| .png" Try If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then PictureBox1.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Png) MsgBox("Imagem Salva com sucesso") End If Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical) End Try End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click PictureBox1.Image = Nothing Button2.Enabled = False Button3.Enabled = False End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load MsgBox("Programa aberto com sucesso!" & Chr(13) & "Aviso: Este programa salva a sua tela inteira!") End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Close() End Sub End Class - Resultado Final: - - Atenciosamente, Stigal. "O fracasso é a oportunidade de se começar de novo inteligentemente" Minhas Redes Sociais: Youtube | Página & Grupo | Steam | Discord TibiaKing
Participe da conversa
Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.