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