Hay que poner el WindowsState del form en Minimized
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim b As Bitmap = New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height, Imaging.PixelFormat.Format32bppArgb)
' Create a Graphics object that will process the screen shot
Dim gfx As Graphics = Graphics.FromImage(b)
' Copy the screen contents
gfx.CopyFromScreen(My.Computer.Screen.Bounds.X, My.Computer.Screen.Bounds.Y, 0, 0, Screen.PrimaryScreen.Bounds.Size, CopyPixelOperation.SourceCopy)
' Save the resulting graphics
b.Save("my2.jpg", Imaging.ImageFormat.Jpeg)
Me.BackgroundImage = b
Me.WindowState = FormWindowState.Maximized
End Sub
Mostrando entradas con la etiqueta Copiar en clipboard. Mostrar todas las entradas
Mostrando entradas con la etiqueta Copiar en clipboard. Mostrar todas las entradas
jueves, 15 de octubre de 2009
Suscribirse a:
Entradas (Atom)