Ekran Görüntüsü Alma / Screenshot (VB.NET) (3.Ders)

[RazerTR]

Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!

Arkadaşlar bugün 3.dersimizde sizlere VB.NET'te anlatacağım konumuzun adı Ekran Görüntüsü Alma / Screenshot 'dir.Artık sizinle yavaş yavaş inşallah visual basicin temel ana girişlerine el atacağız ama herşeyin başı sabır diyerek 3.konumuza fazla uzatmadan giriyorum.



arkadaşlar bu projemizde gerekecekleri söylüyorum size ;


1-2 adet buton
2-1 adet picture box

sonra arkadaşlar butonlarımızın isimlerini resim çek ve kayıt et olarak ayarlıyoruz ;

gelelim dikkat edilecek bir konuya şimdi resim çek ve kayıt et olarak ayarlamıştık butonlarımızın ismini ;

şimdi ise Resim Çek butonun bütün kodlarını size vericeğim ;

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

graph = Graphics.FromImage(screenshot)

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

PictureBox1.Image = screenshot

Kayıt Et butonunun bütün kodları ise aşağıdadır onuda daha demin yaptığımız gibi yapıyoruz ;

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

Böylece dersimiz bitti arkadaşlar 4.dersimizde görüşmek üzere

 

[OptiMistics]

http://www.turkmmo.com/visual-basic/1927944-vbnet-ekran-goruntusu-alma-kaydetme-c4rt00n.html kilit.

 

[OptiMistics]

Karantina.