ALTIN 213,6603
DOLAR 5,3495
EURO 6,0781
Adana Adıyaman Afyon Ağrı Aksaray Amasya Ankara Antalya Ardahan Artvin Aydın Balıkesir Bartın Batman Bayburt Bilecik Bingöl Bitlis Bolu Burdur Bursa Çanakkale Çankırı Çorum Denizli Diyarbakır Düzce Edirne Elazığ Erzincan Erzurum Eskişehir Gaziantep Giresun Gümüşhane Hakkari Hatay Iğdır Isparta İstanbul İzmir K.Maraş Karabük Karaman Kars Kastamonu Kayseri Kırıkkale Kırklareli Kırşehir Kilis Kocaeli Konya Kütahya Malatya Manisa Mardin Mersin Muğla Muş Nevşehir Niğde Ordu Osmaniye Rize Sakarya Samsun Siirt Sinop Sivas Şanlıurfa Şırnak Tekirdağ Tokat Trabzon Tunceli Uşak Van Yalova Yozgat Zonguldak
İstanbul 11°C
Çok Bulutlu

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

19.07.2014
4.930
A+
A-
Visual Basic – Ekran görüntüsü alma ve kaydetme
Reklam

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

 

Sosyal ol, paylaş!

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

    Facebook | Zübeyir Daylan
    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
    ZİYARETÇİ YORUMLARI - 0 YORUM

    Henüz yorum yapılmamış.