───────────────────────────────────────────────────────────────────────────────────────────

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

l+l Button 2 (Kaydet) Kodu

Kod:

If (TextBox1.Text = "") Then
MsgBox("Lütfen Metin Kutusunu Doldurun", , "ScreenShoter")
Else
PictureBox1.Image.Save(TextBox1.Text + ".jpg")
End If

l+l PictureBox Kodu

Kod:

Enabled = False

---

---

eyvallah dostum

---

---

eyvallah dostum

Önemli Degil Kardeşim

---

---

Dil c# ila benzermi?

---

---

Yararlı Bilgiler... +10 rep

---

---

Dil c# ila benzermi?

C# ile hemen hemen aynı =)

Yararlı Bilgiler... +10 rep

Eyvallah kardeşim =)

---

---