Announcement

Collapse
No announcement yet.

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

Collapse
X
  • Filtre
  • Zaman
  • Gösterim
Clear All
yeni mesajlar

  • Visual Basic 2008 - ScreenShoter (Ekran Görüntü Yakalıyıcı) Yapımı

    Ç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


    Code:
        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

    hoppa
İşlem Yapılıyor
X