none
Una captura de pantalla con la mejor buena calidad RRS feed

  • Pregunta

  • Saludos quisiera captura la pantalla con la mejor calidad, la mejor profundidad para que se noten bien los textos textos

    yo ocupo este ejemplo para captura pero busco una mejor calidad que se capture la profundidad bien de la pantalla

            Dim gr As Graphics = Me.CreateGraphics
            ' Tamaño de lo que queremos copiar
            Dim fSize As Size = Me.Size
            ' Creamos el bitmap con el área que vamos a capturar
            ' En este caso, con el tamaño del formulario actual
            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 el área de la pantalla que ocupa el formulario
            gr2.CopyFromScreen(0, 0, 0, 0, fSize)
            ' Asignamos la imagen al PictureBox
            PictureBox1.Image = bm
    
    

    martes, 5 de marzo de 2019 1:34

Respuestas

  • Hola , podrías utilizar algo como esto en el último parámetro del bitmap, 

     Dim bmp As New Bitmap(fSize.Width, fSize.Height, System.Drawing.Imaging.PixelFormat.Format16bppRgb565)

    ese último valor puede mejorar la calidad de la imagen

    troubles with images

    parametro de bitmap

    existen otras variaciones de ese último parámetro que podrías probar.


    Votar y marcar respuestas es agradecer.
    Saludos.
    Lima-Perú


    • Editado Augusto1982 martes, 5 de marzo de 2019 4:49
    • Marcado como respuesta Cael1020 martes, 5 de marzo de 2019 15:56
    martes, 5 de marzo de 2019 4:47

Todas las respuestas