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

0.00 avg. rating (0% score) - 0 votes

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

 

Bu konu hakkında görüşlerinizi bildirmek için veya soru sormak için sitemize yorum bırakabilirsiniz. Yorumlar tüm ziyaretçilerimize açıktır. Yorum bırakmak için sitemize üye olmanıza gerek yoktur.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir