Visual Basic bilen ?

Arkadaşlar bi program yazmam gerekiyor.Olay şu

İmage1 dosyası olucak çekilen resim image1'de gösterilecek ve C nin altına 1.jpg adıyla kaydolacak.Daha sonra tekrardan butona basıp ekran görüntüsü al dediğimde bu sefer 2.jpg adıyla yeni bi resim daha kaydedecek.

Bilen arkadaş varmı ?

SendKeys.Send("{PrtSc}")

kodu ile Print Screen yaparsın.

PictureBox1.Image = Clipboard.GetImage

kodu ile hafızadaki resmi picturebox 'a atarsın.

PictureBox1.Image.Save("c:\dosyaadi.jpg")

ile kaydedersin.

Fakat, son komutta dosya adının ardaşık gitmesini istediğin için şöyle bir mantık uygulamalısın,

Kodlara başlamadan en üstte genel bir değişken tanımlayarak, her dosya kaydettiğinde o değişkenin bir artmasını sağlamalısın.

dim dosyaadi as integer=1

sub kaydet
SendKeys.Send("{PrtSc}")
PictureBox1.Image = Clipboard.GetImage
PictureBox1.Image.Save("c:\" & dosyaadi & ".jpg")
dosyaadi=dosyaadi+1
end sub

gibi bir kod öbeği istediğini yapacaktır. Biraz geliştirmen gerekebilir

çok teşekkür ederim dostum işime yaradı +rep

Dim dosism As String
SendKeys.Send("{PrtSc}")
PictureBox1.Image = Clipboard.GetImage
dosism = inputbox("Dosya ismi giriniz")
PictureBox1.Image.Save("c:\" & dosism & ".jpg")

Bu şekildede dosya ismini kendin girerek sağlayabilirsin.