«

»

Sty 11

Wydrukuj to Wpis

Zrzut ekranu w Visual Basic

zrzut-ekranu

Program napisany w visual basic, wykonuje zrzut ekranu oraz posiada możliwość zapisania obrazu.

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Imports System.Drawing
Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Dim graniceEkranu As Rectangle = Screen.PrimaryScreen.Bounds
        Dim zrzutEkranu As Bitmap = New Bitmap(graniceEkranu.Width, graniceEkranu.Height, _
                                                             Imaging.PixelFormat.Format32bppArgb)
        Dim grafika As Graphics = Graphics.FromImage(zrzutEkranu)
        grafika.CopyFromScreen(graniceEkranu.X, graniceEkranu.Y, 0, 0, graniceEkranu.Size, CopyPixelOperation.SourceCopy)
        PictureBox1.Image = zrzutEkranu
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If PictureBox1.Image Is Nothing Then Exit Sub
        PictureBox1.Image.Save("zrzut-ekranu.bmp")
    End Sub
End Class

Załączniki do pobrania

  • rar Zrzut-ekranu
    Visual Basic project
    Rozmiar pliku: 72 KB Pobrania: 99

Permalink do tego artykułu: http://tmall.com.pl/zrzut-ekranu-w-visual-basic/

Dodaj komentarz

Twój adres email nie zostanie opublikowany. Pola, których wypełnienie jest wymagane, są oznaczone symbolem *

Możesz użyć tych znaczników i atrybutów HTMLa: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>