───────────────────────────────────────────────────────────────────────────────────────────
Visual Basic'te Yenı Bır Proje Acıktıktan Sonra
Gerekenler:
l+l 2 Adet Button
l+l 1 Adet Picturebox
l+l 1 Adet TextBox
l+l 1 Adet Label
───────────────────────────────────────────────────────────────────────────────────────────
1) Button 1'in Adını Çek Yapınız
2) Button 2'nın Adını Kaydet Yapınız
3) Label 1'in Adını Fotograf İsmi Yapınız
───────────────────────────────────────────────────────────────────────────────────────────
Kodlama Bölümü:
───────────────────────────────────────────────────────────────────────────────────────────
l+l Button 1 (Çek) Kodu
Kod:
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
Kod:
If (TextBox1.Text = "") Then
MsgBox("Lütfen Metin Kutusunu Doldurun", , "ScreenShoter")
Else
PictureBox1.Image.Save(TextBox1.Text + ".jpg")
End If
Kod:
Enabled = False