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    156 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 02.02.2016, 13:21:13 #1
x60 #Requiem
Cezalı Üye
Status: Çevrimdışı Yorum Sayısı:551 Konu Sayısı:161 Üyelik Tarihi:18.11.2015

2 Button
1 PictureBox Ekliyorz

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

Kodlar:

[hide]

PHP Kod:
Public Class Form1 

   
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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.Widthbounds.HeightSystem.Drawing.Imaging.PixelFormat.Format32bppArgb
 
      graph Graphics.FromImage(screenshot
 
      graph.CopyFromScreen(bounds.Xbounds.Y00bounds.SizeCopyPixelOperation.SourceCopy
 
      PictureBox1.Image screenshot 
   End Sub 

   
Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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.FileNameSystem.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ışı Yorum Sayısı:551 Konu Sayısı:161 Üyelik Tarihi:18.11.2015

Kodlar güncel +









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

Konuyu görüntüleyenler:
1 Misafir