Visual Basic – Ekran görüntüsü alma ve kaydetme

VB ile ekran görüntüsü alma

Kodlar:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim ekransize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
Dim ekranblack As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
Dim g As System.Drawing.Graphics

= System.Drawing.Graphics.FromImage(ekranblack)
g.CopyFromScreen(New Point(0, 0), New Point(0, 0), ekransize)
Dim SaveFileDialog As New SaveFileDialog
SaveFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
SaveFileDialog.Filter = “Jpg Files (*.Jpg)|*.jpg |Bmp Files (*.Bmp) | *.Bmp | All Files (*.*)|*.*” ’ Burada istedigin formatların uzantılarını yazabilirsin ama yalnız boyle ekle ’ All Files (*.uzantı ismi)|*.uzantı ismi ’

If (SaveFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
Dim FileName As String = SaveFileDialog.FileName
ekranblack.Save(FileName, System.Drawing.Imaging.ImageFormat.Jpeg)

End If
’Not: Forma Picturebox ve SaveFileDialog eklemenize gerek yoktur…
End Sub

Yazarı instagram'da takip edin

zdaylan.com yapımı ve güvencesiyle, GrafikBu.com hizmetinize açılmıştır.

Web Tasarım - Blog hizmetleri - E-Ticaret Sitesi - 3D Modelleme - Logo Tasarım - Video Prodüksiyon - Kurumsal Kimlik gibi, daha çok grafik tasarım ağırlıklı ürünlerimize göz atabilirsiniz.

GrafikBu.com'u ziyaret etmek için tıklayın >>