VB Ekran Görüntüsü Alma


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: x60    1 Yorum    195 Görüntüleme
  • Derecelendirme: 0/5 - 0 oy

Paylaşım Tarihi: 02.02.2016, 13:21:13 #1
x60 #Requiem
Cezalı Üye
Status: Çevrimdışı Yorumları:544 Konuları:160 Kayıt Tarihi:18.11.2015

2 Button
1 PictureBox Ekliyorz

Button1 = ekran Görüntüsünü alma
Button2 = Kaydetme

Kodlar:

[hide]

PHP Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Public Class Form1 

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
       Dim bounds As Rectangle 
       Dim screenshot As System.Drawing.Bitmap 
       Dim graph As Graphics 
       bounds = Screen.PrimaryScreen.Bounds 
       screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb) 
       graph = Graphics.FromImage(screenshot) 
       graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy) 
       PictureBox1.Image = screenshot 
   End Sub 

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
       Dim savefiledialog1 As New SaveFileDialog 
       Try 
           savefiledialog1.Title = "Save File" 
           savefiledialog1.FileName = "*.bmp" 
           savefiledialog1.Filter = "Bitmap |*.bmp" 
           If savefiledialog1.ShowDialog() = DialogResult.OK Then 
               PictureBox1.Image.Save(savefiledialog1.FileName, System.Drawing.Imaging.ImageFormat.Bmp) 
           End If 
       Catch ex As Exception 

       End Try 
   End Sub 
End Class 

[/hide]


Paylaşım Tarihi: 02.02.2016, 13:22:56 #2
x60 #Requiem
Cezalı Üye
Status: Çevrimdışı Yorumları:544 Konuları:160 Kayıt Tarihi:18.11.2015

Kodlar güncel +










Aradığınızı Bulamadınız Mı ?

Konuyu Okuyanlar:
1 Ziyaretçi