Los moderadores, MVP y administradores podrán seguir editando, respondiendo o creando nuevos mensajes

Hola a todos!!!

Bueno,llevo unos dias intentando hacer capturas de la pantalla desde el emulador mame a pantalla completa,y solo consigo que la imagen sea negra.

Public Function TrincarImagen() As Image

        ' variable de tipo IDataObject que contiene el portapapeles
        Dim objClipboard As IDataObject = Clipboard.GetDataObject()
        ' método de IDataObject
        ' devolver el portapapeles como mapa de bits

        Dim gr As Graphics = Me.CreateGraphics
        ' Tamaño de lo que queremos copiar
        ' En este caso el tamaño de la ventana principal
        Dim fSize As Size = Screen.PrimaryScreen.Bounds.Size
        ' Creamos el bitmap con el área que vamos a capturar
        Dim bm As New Bitmap(fSize.Width, fSize.Height, gr)
        ' Un objeto Graphics a partir del bitmap
        Dim gr2 As Graphics = Graphics.FromImage(bm)
        ' Copiar todo el área de la pantalla
        gr2.CopyFromScreen(0, 0, 0, 0, fSize)

        Return bm
    End Function

   Private Sub Button1
       _Click(ByVal sender As System.Object, ByVal e As
        System.EventArgs) Handles Button1.Click
        Dim Pantallazo As Image
        Pantallazo = TrincarImagen()
        Pantallazo.Save(TextBox2.Text & "\" &
             ListBox1.SelectedItem & ".jpg")
    End Sub

Haber si alguien me puede ayudar,porque con el botón "Impr Print" consigo lo mismo,la imagen negra.

Gracias

Un saludo.

Acabo de probar el codigo que estas usando y resulta que me funciono al 100%,