Membuat Screen Capture / Screen Shot menggunakan visual basic 2008 /vb.net

Setelah saya Membuat Sound recorder menggunakan visual basic 2008 dan sukses kemudian saya tertarik untuk Membuat Screen Capture / Screen Shot menggunakan visual basic 2008 /vb.net karena nantinya akan saya kembangkan menjadi screen recorder atau perekam screen, untuk membuat screen capture anda hanya membutuhkan beberapa komponen yaitu 2 button,1 label, 2 picturebox dan 2 form, 2 picturebox dipisah, yang satu taruhi di form1 dan yang satunya taruh di form2 kemudian ganti text button pertama menjadi Ambil dan text pada button kedua menjadi Lihat Hasil lalu picturebox dan label1 pada form1 ganti setting visible jadi false dan form1 opacity jadi 50%  seperti gambar dibawah ini:

 

Setelah setting tampilah form1 sudah sama seperti gambar diatas, kemudian klik form2 dan lihat gambar dibawah ini:

 

Pada gambar diatas disamping kiri terlihat Dock = Fill ini dimaksudkan agar ketika Form2 di maximize maka picturebox akan mengikuti besarnya layar, setelah form2 disetting seperti gambar diatas kemudian klik Form1 Design dan klik dua kali formnya kemudian hapus semua kode yang ada dan masukkan kode dibawah ini:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Hide()

        Dim bounds As Rectangle
        Dim sc As System.Drawing.Bitmap
        Dim gr As Graphics
        bounds = Screen.PrimaryScreen.WorkingArea
        sc = New System.Drawing.Bitmap(Bounds.Width, Bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
        gr = Graphics.FromImage(sc)
        gr.CopyFromScreen(Bounds.X, Bounds.Y, 0, 0, Bounds.Size, CopyPixelOperation.SourceCopy)
        PictureBox1.Image = sc
        Dim sv As New SaveFileDialog

        Try

            sv.Title = "Simpan File"

            sv.FileName = "PrintScreen"

            sv.Filter = "PNG |*.png"

            If sv.ShowDialog() = DialogResult.OK Then

                PictureBox1.Image.Save(sv.FileName, System.Drawing.Imaging.ImageFormat.Png)
                Label1.Text = sv.FileName
                Form2.PictureBox1.ImageLocation = Label1.Text
                Form2.Show()

            End If

        Catch ex As Exception

        End Try

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form2.PictureBox1.ImageLocation = Label1.Text
        Form2.Show()
    End Sub
End Class

Sekarang screen recordernya sudah jadi dan tinggal dikembangkan sendiri biar makin canggih tentunya.