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
|
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.. |