Auto Screen Recorder

**AnonymousKesha** · 19 de Outubro 2013

Bom, hoje vou mostrar um método de como tirar print da tela do PC usando o VB

Iniciando pelos form

-Form1

-contador.vb

-Fr_Visualizar.vb

Agora os objetos

Form1

-Button(Capturar),nome = btnCapturar

-Button(Salvar),nome = btnSalvar

-Button(Limpar),nome = btnLimpar

-CheckBox(Contador),nome = chkcontador

-NumericUpDown, nome = nupContador

-SaveFileDialog1

-PictureBox, nome = picTela

Sem delongas ou enrolação vou mandar o código inteiro, só excluir tudo que tem no form1 e colocar esse no lugar!

Public Class Form1
Dim timp As New DateTime()

Private Sub btnCapturar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCapturar.Click

'Controle capturar

Me.Opacity = 0 'Controle de opacidade

If chkcontador.Checked = True Then

contador.ShowDialog() 'Exibir form contador

End If

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)

picTela.Image = _tela

Me.Opacity = 100 'Controle de opacidade

Me.ShowInTaskbar = True

btnSalvar.Enabled = True

btnLimpar.Enabled = True

'Fim do controle salvar

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'Load nullo

End Sub

Private Sub btnSalvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalvar.Click

'Controle do botao salvar

Dim filesavedialog1 As New SaveFileDialog

SaveFileDialog1.Title = "Salvar tela"

SaveFileDialog1.FileName = "tela_" & timp.ToString("HH-mm-dd-MM-yyyy") & ".jpg"

SaveFileDialog1.Filter = "JPEG File| .jpg"

Try

If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

picTela.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)

End If

Catch ex As Exception

MsgBox(ex.Message, MsgBoxStyle.Critical)

End Try

'Fim do controle salvar

End Sub

Private Sub btnLimpar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLimpar.Click

'Controle do botao limpar

picTela.Image = Nothing

btnSalvar.Enabled = False

btnLimpar.Enabled = False

'Fim do controle limpar

End Sub

Private Sub chkContador_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkcontador.CheckedChanged

'Ativador de tempo

If chkcontador.Checked = True Then

nupContador.Enabled = True

ElseIf chkcontador.Checked = False Then

nupContador.Enabled = False

End If

'Fim do controle

End Sub

Private Sub nupContador_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nupContador.ValueChanged

'Nullo

End Sub

Private Sub picTela_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles picTela.Click

Fr_Visualizar.ShowDialog()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

End Class

contador

-timer1 > enabled = True

-label1

Código do form contador, mesma coisa,apaga tudo e coloca o código já feito!

Public Class contador
Dim i As Integer = Form1.nupContador.Value

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If i > 0 Then

i -= 1

Label1.Text = i

Else

Me.Close()

End If

End Sub

Private Sub contador_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Label1.Text = i

End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub

End Class

Fr_Visualizar

-PictureBox1

Codigo do form Fr_Visualizar

Public Class Fr_Visualizar

Private Sub Fr_Visualizar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

PictureBox1.Image = Form1.picTela.Image

End Sub

End Class

É muito Ctrl + V só que desnecessário explicar tudo, o código em si deixei com marcações para saber o que esta acontecendo!

Créditos : macoratti.net