[Source+Tutorial] Visual Basic 2008 - Capturador de Tela

[Stigal 221]

• 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.