Aşağıdaki kodları formunuzun button click ine yazın.
Şekil 1
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Hide() ’ formumuzun ekran görüntüsünde çıkmaması için gizliyoruz.
Threading.Thread.Sleep(1000) ’Girilen süre zarfınca bekletiyoruz.
’Ekran boyutunu ve görüntüsünü alıyoruz.
Dim ekranboyut As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
Dim ekrangoruntu As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
Dim grafik As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(ekrangoruntu)
grafik.CopyFromScreen(New Point(0, 0), New Point(0, 0), ekranboyut)
ekrangoruntu.Save("C:\screen.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
Me.Show() ’görüntü alma işlemi bittikten sonra formumuzu gösteriyoruz.
’Daha sonra ekran görüntüsüne ait image ı process yardımıyla açıyoruz
Dim pr As System.Diagnostics.Process = New System.Diagnostics.Process()
pr.StartInfo.FileName = "C:\screen.jpg"
pr.Start()
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Hide() ’ formumuzun ekran görüntüsünde çıkmaması için gizliyoruz.
Threading.Thread.Sleep(1000) ’Girilen süre zarfınca bekletiyoruz.
’Ekran boyutunu ve görüntüsünü alıyoruz.
Dim ekranboyut As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
Dim ekrangoruntu As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
Dim grafik As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(ekrangoruntu)
grafik.CopyFromScreen(New Point(0, 0), New Point(0, 0), ekranboyut)
ekrangoruntu.Save("C:\screen.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
Me.Show() ’görüntü alma işlemi bittikten sonra formumuzu gösteriyoruz.
’Daha sonra ekran görüntüsüne ait image ı process yardımıyla açıyoruz
Dim pr As System.Diagnostics.Process = New System.Diagnostics.Process()
pr.StartInfo.FileName = "C:\screen.jpg"
pr.Start()
End Sub
End Class
0 comments:
Yorum Gönder