programmi con Visual Basic: il cattura schermo

volete catturare il vostro schermo? allora ecco come fare:

se durante il filmato non avete capito i codici, eccoli qui sotto:

doppio click sul pulsante cattura e scrivete:

Dim bounds As Rectangle

Dim screenshot As System.Drawing.Bitmap

Dim graphs As Graphics

bounds = Screen.PrimaryScreen.Bounds

screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)

graphs = Graphics.FromImage(screenshot)

graphs.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.size, CopyPixelOperation.SourceCopy)

PictureBox1.Image = screenshot

doppio click sul pulsante salva e scrivete:

Dim savefilesdialog1 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

'do nothing

End Try