[VB.NET] Cara membuat screen capture pada visual basic

Cara Membuat Screen Capture dalam keadaan tidak terhubung internet (offline),yuk kita belajar membuat screen capture desktop komputer pribadi.  Apa itu screencapture?/ yaitu alatberupa perangkat lunak yang digunakan untuk   mengambil foto layar monitor pada komputer kita atau preview sebuah aplikasi, blog atau situs

Bila screenshot berupa aplikasi/software, screenshot biasanya digunakan sebagai gambar contoh atau gambar bantu sebuah tutorial

Bila screenshot berupa foto situs/blog, hal tersebut bertujuan untuk memperjelas suatu review atau supaya suatu review tentang blog/situs lebih menarik, dengan kata lain, supaya postingan lebih hidup dan menarik.

membuat screen capture pada visual basic

Membuat desain form sebagai tampilan

membuat screen capture pada visual basic

Komponen yang dibutuhkan

• PictureBox
• Button
• Timer

Untuk code program bisa dilihat dibawah ini

Kunjungi juga contoh aplikasi laporan CRUD disini

——————————————————————————————————–

Public Class Form1

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Me.Close()

End Sub

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

Me.Opacity = 0

Timer1.Enabled = True

Button2.Enabled = True

End Sub

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

Dim bounds As Rectangle

Dim screenshot As System.Drawing.Bitmap

Dim graph As Graphics

bounds = Screen.PrimaryScreen.Bounds

screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)

graph = Graphics.FromImage(screenshot)

graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)

PictureBox1.Image = screenshot

Timer1.Enabled = False

Me.Opacity = 100

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim savefiledialog1 As New SaveFileDialog

Try

savefiledialog1.Title = “Save File”

savefiledialog1.FileName = “Capture”

savefiledialog1.Filter = “JPEG (*.jpg;*.jpeg;)|*.jpg;*.jpeg|PNG (*.png)|*.png”

If savefiledialog1.ShowDialog() = DialogResult.OK Then

PictureBox1.Image.Save(savefiledialog1.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)

End If

Catch ex As Exception

‘Do Nothing

End Try

End Sub

End Class