contenuti del blog

domenica 23 gennaio 2011

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

Nessun commento:

Posta un commento