Visual Basic 2008 – ScreenShoter (Ekran Görüntü Yakalıyıcı)

Çalışmamıza Başlarken; 2 Adet Buton, 1 Adet TextBox ve 1 Adet PictureBox   ekleyelim

Butonları Resimdeki Gibi İsimlendirip Yerleştirelim (Tasarım Size Kalmış)

Button1, Ekran Görüntüsünü Almamıza Yarıyacak
Button2, Aldığımız Ekran Görüntüsünü Kaydetmemize Yarıyacak
TextBox1, Resmi Kaydederken Resme İsim Vermezi Sağlar(Kaydı Programın Yanına Kaydeder)
PictureBox1, Resmi Önizlememize Olanak Sağlar

Kod:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim kenar As Rectangle
Dim cek As System.Drawing.Bitmap
Dim resim As Graphics
kenar = Screen.PrimaryScreen.Bounds
cek = New System.Drawing.Bitmap(kenar.Width, kenar.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
resim = Graphics.FromImage(cek)
resim.CopyFromScreen(kenar.X, kenar.Y, 0, 0, kenar.Size, CopyPixelOperation.SourceCopy)
PictureBox1.Image = cek
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If (TextBox1.Text = “”) Then
MsgBox(“Lütfen Metin Kutusunu Doldurun”, , “ScreenShoter”)
Else
PictureBox1.Image.Save(TextBox1.Text + “.jpg”)
End If
End Sub

Herkese Kolay Gelsin