|
Tento kód vám vytvoří snímek celé primární obrazovky po klepnutí na formulář a uloží do souboru. S trochou snahy při použití časovače (Timer) dosáhnete požadovaného výsledku.
Public Class Form1
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
'Specifikuje primární obrazovku (v případě systému s více monitory)
With Screen.PrimaryScreen.Bounds
'Vytvořit bitovou mapu v paměti požadované velikosti
Dim bmp As New Bitmap(.Width, .Height, Imaging.PixelFormat.Format32bppRgb)
'Vytvořit "kreslící plátno"
Dim g = Graphics.FromImage(bmp)
'Zkopírovat obsah primární obrazovky na kreslící plátno
g.CopyFromScreen(0, 0, 0, 0, New Size(.Width, .Height))
'Uložit bitovou mapu do souboru
bmp.Save("C:\Obrazovka.png", Imaging.ImageFormat.Png)
End With
End Sub
End Class
|