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

19.07.2014
6.268
A+
A-
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

 

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

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

zdaylan
zdaylan
Grafik Tasarım - Beykent Üniversitesi - 1990 doğumlu, grafik tasarım, 3D modelleme, yazılım ve animasyonla ilgilenir. Ayrıca Grafikbu.com'da grafik tasarım hizmetleri verir.
YAZARA AİT TÜM YAZILAR
BİR YORUM YAZIN

This site uses Akismet to reduce spam. Learn how your comment data is processed.

ZİYARETÇİ YORUMLARI - 0 YORUM

Henüz yorum yapılmamış.