AccessTr.neT
Ekran Görüntüsü Alma [ÖRNEK MEVCUT] - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Ekran Görüntüsü Alma [ÖRNEK MEVCUT] (/konu-ekran-goruntusu-alma-ornek-mevcut.html)

Sayfalar: 1 2


Ekran Görüntüsü Alma [ÖRNEK MEVCUT] - SenKimsin - 06/06/2012

Arkadaşlar sizlere bir sorum olacak. Ekran görüntüsünü almayı yaptım ancak bunu kaydetmiyor. Daha doğrusu otomatik olarak kaydetmiyor. Manuel (El İle) kaydediyor.
Arkadaşlar şimdi button1' e bastığınızda resmi çekiyor. Birde bunu yeni bir klasör açarak kaydetmesini istiyorum. Her kaydedişinde sonundaki rakam 1 artsın.

ÖRN: I. Çekişinde; C/Örnek_Klasör/Resim1
II: Çekişinde; C/Örnek_Klasör/Resim2
Her çekişinde birer birer artsın. Ve örnek_klasör adında yeni bir klasör açsın.
Yardımlarınızı bekliyorum.

TIKLA ÖRNEĞİ İNDİR



Cvp: Ekran Görüntüsü Alma [ÖRNEK MEVCUT] - SenKimsin - 06/06/2012

Bilen biri yok mu?


Cvp: Ekran Görüntüsü Alma [ÖRNEK MEVCUT] - alpeki99 - 06/06/2012

Bu ne acele anlayamadım? Ücret ödemiyorsunuz bir şey yapmıyorsunuz. Tek yapabileceğiniz soru sormak ve cevaplanması için beklemek.

Ekte yer alan dosyada ekran resmi alma ile ilgili gerekli kodlar çalışır haldedir. Ayrıca Google'dan arama yaparak gelenler için kod :


Dim Boyut As New Size(1024, 768)
Dim Resim As New Bitmap(1024, 768)
Dim grafik As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(Resim)
Dim klasorPath As String

grafik.CopyFromScreen(New Point(0, 0), New Point(0, 0), Boyut)

If (Not String.IsNullOrEmpty(txtKlasorAdi.Text)) Then
klasorPath = txtKlasorAdi.Text
Else
klasorPath = Application.StartupPath
End If

If (Not String.IsNullOrEmpty(txtDosyaAdi.Text)) Then
Resim.Save(klasorPath & "\\" & txtDosyaAdi.Text & ".bmp")
Else
Resim.Save(klasorPath & "\\AccessTrEkranResmi.bmp")
End If

Vb.Net ile Ekran Görüntüsünü Almak Çekmek.rar



Cvp: Ekran Görüntüsü Alma [ÖRNEK MEVCUT] - kadirdursun - 07/06/2012

sayın alpeki99;
sanırım bir çok kişinin işine yarayacaktır bu kodlar. teşekkür ederim.


Cvp: Ekran Görüntüsü Alma [ÖRNEK MEVCUT] - SenKimsin - 10/06/2012

Yardımınız için teşekkür ederim. Bu örnek işime yaradı.


RE: Ekran Görüntüsü Alma [ÖRNEK MEVCUT] - Stzolen - 03/05/2020

Dim bounds As Rectangle

Dim screenshot As System.Drawing.Bitmap

Dim graph As Graphics

bounds = Screen.PrimaryScreen.Bounds

screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format24bppRgb)

graph = Graphics.FromImage(screenshot)

graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)

Label4.Image = screenshot

Bazı sitelerde bu komutu gördüm bit ayarlıyorum felan 

Dim savefiledialog1 As New SaveFileDialog
            Try
                savefiledialog1.Title = "byStzolen"
                savefiledialog1.FileName = ""
                savefiledialog1.Filter = "JPEG |*.jpeg"
                If savefiledialog1.ShowDialog() = DialogResult.OK Then
                    Label4.Image.Save(savefiledialog1.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
                End If
            Catch ex As Exception 'Do Nothing
            End Try

Birde böyle bir kaydetme bölümü mevcut format ayarlama seçenekleri de var

Şöyleki benim belirlediğim bir konum olcak örnek ""C:\Users\Kullanıcılar\Documents\Ekran Görüntüleri"" gibi eğer dosya yoksa oluştursun ben her ekran görüntüsü aldığımda bu klasöre otomatik kaydedecek yani şu alt bölümü istemiyorum manuel olmasın.

Bu komutlar ben tuş ile kullanıyorum buton değil yani mesela "end" tuşuna basınca ekran görüntüsü alsın belirlediğim konuma kaydetsin program içinden dosya yolu seçmek istemiyorum komutlar bölümüne yazılsın.