26-02-2011, 11:50 PM
Ciao ho fatto questo screen capture ecco il link: http://www.megaupload.com/?d=5BXASD4Z
ecco il mio tutorial: http://www.youtube.com/watch?v=PKNifmpcN8Y
scusate per la qualita lo ha fatto movie maker che ho unito 2 parti
ecco i codici:
Pulsante cattura:
Pulsante Salva:
vi darà un errore voi unite
vedete quelle che bisogna avvicinare
ecco il tutorial hd http://www.youtube.com/watch?v=xCnPdWX4yZ8
ecco il mio tutorial: http://www.youtube.com/watch?v=PKNifmpcN8Y
scusate per la qualita lo ha fatto movie maker che ho unito 2 parti
ecco i codici:
Pulsante cattura:
Codice:
Dim bounds As Rectangle
Dim screenshot As System.Drawing.Bitmap
Dim graph As Graphics
bounds = Screen.PrimaryScreen.Bounds
screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Forma t32bppArgb)
graph = Graphics.FromImage(screenshot)
graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
PictureBox1.Image = screenshot
Pulsante Salva:
Codice:
Dim savefiledialog1 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.F ileName, System.Drawing.Imaging.ImageFormat.Bmp)
End If
Catch ex As Exception
'Do Nothing
End Try
vi darà un errore voi unite
vedete quelle che bisogna avvicinare
ecco il tutorial hd http://www.youtube.com/watch?v=xCnPdWX4yZ8