+- 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
RE: Ekran Görüntüsü Alma [ÖRNEK MEVCUT] - accessman - 03/05/2020
Banada böyle bir uygulama lazımdı
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)
PictureBox.Image = screenshot
Timer4.Enabled = True
Me.Opacity = 100
'Kaydedeceği dosya yolu yok ise oluştur
If Not My.Computer.FileSystem.DirectoryExists("C:\Users\Documents\Ekran Görüntüleri") Then
My.Computer.FileSystem.CreateDirectory("C:\Users\Documents\Ekran Görüntüleri")
End If
'Kaydedeceği dosya yolu var ise oluşturma
Dim counter = My.Computer.FileSystem.GetFiles("C:\Users\Documents\ Ekran Görüntüleri")
Dim intCount As Integer
intCount = CStr(counter.Count)
'Dosyayı kaydet
Dim bystzolen As String
bystzolen = "Ekran görüntüsü" & intCount + 1
PictureBox1.Image.Save("C:\Users\Documents\ Ekran Görüntüleri\" & bystzolen & ".png", System.Drawing.Imaging.ImageFormat.Png)
Arkadaşlar ekran görüntüsü alıp otomatik kaydetmek için bu komutu hazırladım uğraştığım bir komuttu butonunuza ekliyorsunuz bastığınızda belirlediğiniz konuma kaydediyor yerleri kendinize göre değiştirirsiniz. Bunu bir tuş ile çalıştırmak isterseniz discord kanalımda anlatırım. iyi günler dilerim..