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

19.07.2014
5.907
A+
A-
Visual Basic – Ekran görüntüsü alma ve kaydetme
Reklam
[instagram-feed]

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

Instagram'dan @zdaylan kullanıcısını takip edin:

 

Sosyal ol, paylaş!

    0.00 avg. rating (0% score) - 0 votes
    Instagram'dan @zdaylan kullanıcısını takip edin:

    Reklam
    zdaylan
    zdaylan
    Yazar hakkında:  Mehmet Zübeyir Daylan - İstanbul, TR 1 Kasım 1990'da Bakırköy'de dünyaya geldim. Bahçelievler İlköğretim okulunda ilkokul (2002), Küçükçekmece Yeşilyuva İlkokul'da ortaokul (2005) eğitimini bitirdim. Liseyi 2007 yılında Okyanus Koleji'nde okurken bıraktım daha sonra düz lise olarak açıktan okumaya devam ettim. 2017 yılında liseden mezun olduktan sonra, eğitimde şu anki konumum olan Beykent Üniversitesi'nde Grafik Tasarım bölümünde eğitim almaya başladım. Daha önce BilgeAdam'da yani bir bilişim-dijital kursunda Grafik Tasarım, Web Tasarım, 3D modelleme, Bilgisayar Programcılığı, Sistem ve Ağ uzmanlığı, Microsoft Office,Yabancı Dil: İngilizce gibi birbirinden farklı derslerden eğitimimi tamamladım ve bazı sertifikalara sahip oldum. Video & film prodüksiyon ve animasyonda da belli bir yere kadar tecrübelerim bulunmaktadır.  Köpeğimi,bilgisayarları, teknolojiyi, havacılığı, gezmeyi, futbolu (özellikle Fenerbahçe'yi) severim.
    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ış.