capturar ventana activa, funciona pero...

[javi37]

Hola, el siguiente código me funciona, pero la pega, que no es pequeña es la siguiente. Lanzo el código y no captura nada.
Lo lanzo otra vez, y muestra lo que debió mostrar la anterior vez, y así sucesivamente.

Código:

        Me.Hide()
        System.Threading.Thread.Sleep(Me.NumericUpDown1.Value * 1000)
        SendKeys.Send("%{PRTSC}")
        Dim img As Bitmap = My.Computer.Clipboard.GetImage
        Me.PictureBox1.Image = img
        Me.Show()

debería mostrar la ventana captura actualmente, no la de la vez anterior, no?

gracias

[winexim]

Agrega

Application.DoEvents()
donde tu creeas que lo ocupes

ejemplo

System.Threading.Thread.Sleep(Me.NumericUpDown1.Va lue * 1000)
SendKeys.Send("%{PRTSC}")
Dim img As Bitmap = My.Computer.Clipboard.GetImage
Me.PictureBox1.Image = img
Application.DoEvents()
Me.Show()

[javi37]

Nada, lo he probado pero sigue igual la cosa.

Creo que es por evento %{PRTSC}

ya que la captura de la pantalla completo es con {PRTSC} y funciona perfectamente, osea que.... es por el sendkeys y el %{PRTSC}

[javi37]

Es gracioso, porque si las 3 últimas líneas del código las meto en otro sub, y a ese sub lo llamo desde un botón todo correcto, pero si ese sub lo llamo mediante código, NO.

Osea que.... no entiendo eso

[gnzsoloyo]

En el evento Click un botón, poner esto:

Código vb.net:

Dim oImagen As Image = GetWindowCapture()
        oImagen.Save(oFile, Imaging.ImageFormat.Jpeg)
 

Donde oFile es una variable stringo con el nombre del archivo con la ruta completa donde se grabará.

A esto hay que agregarle el método:

Código vb.net:

Public Function GetWindowCapture() As Image
        Dim objTecla As SendKeys
        Dim oBitmap As Bitmap
        objTecla.SendWait("%{PRTSC}")
        Dim objClipboard As IDataObject = Clipboard.GetDataObject()
        Return objClipboard.GetData(DataFormats.Bitmap)
    End Function