Buenas a todos este es mi 2º post y os voy a enseñar a hacer una camara de fotots que hace fotos de lo que se está viendo en tu pantalla (solo fotos).
Empecemos,como siempre creamos un nuevo proyecto le ponen el nombre que quieran y retocan como quieran el form,después necesitaran los siguientes elementos para hacerlo son: 2 buttons y un PictureBox.
Ponen los buttons como quieran, en uno pongan foto o hacer foto y en el otro ponen guardar o guardar foto,el picture box sirve para que cuando hagan la foto vean una pequeña muestra de la foto os aconsejo que no hagais el picturebox muy grande porque cuanto mas grande no se va a ver mejor la imagen.
Una vez colocado los buttons y el picturebox tendran que poner estos codigos:
En foto damos doble click y ponen:
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.Format32bppArgb)
graph = Graphics.FromImage(screenshot)
graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
PictureBox1.Image = screenshot
Y en guardar ponen:
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.FileName, System.Drawing.Imaging.ImageFormat.Bmp)
End If
Catch ex As Exception
'Do Nothing
End Try
Si alguno de los códigos os da error borren el codigo puesto y vuelvanlo a poner ami tambien me pasó
Y esto sería todo para hacer la capturadora.
Tambien tengo que decir que los codigos son de un youtuber ahora dejare el link de su canal por si se quieren pasar
http://www.youtube.com/user/thesupersergio12?feature=watch
Bueno esto es todo espero que os sirva
¡Nos vemos en el proximo post!