none
Como capturar Pantalla y que pueda despues despues pegar con contro+v RRS feed

Respuestas

  • Hola JETET, con lo siguiente queda en el portapapeles

      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim ImSize As New Size(Screen.PrimaryScreen.Bounds.Size)
            Dim grap As Graphics = Me.CreateGraphics
            Dim bm As New Bitmap(ImSize.Width, ImSize.Height, grap)
            Dim grap2 As Graphics = Graphics.FromImage(bm)
            grap2.CopyFromScreen(0, 0, 0, 0, ImSize)
            Clipboard.Clear()
            Clipboard.SetImage(bm)
        End Sub

    Se genera un bitmap y dos grafícos uno para el size y otro para copiar la imagen . Esto tambien lo puedes volcar ne un picture PictureBox.Imagen = bm

    Espero te sirva

    Saludos

    • Marcado como respuesta JETET domingo, 19 de noviembre de 2017 19:44
    domingo, 19 de noviembre de 2017 16:47

Todas las respuestas

  • Hola JETET, con lo siguiente queda en el portapapeles

      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim ImSize As New Size(Screen.PrimaryScreen.Bounds.Size)
            Dim grap As Graphics = Me.CreateGraphics
            Dim bm As New Bitmap(ImSize.Width, ImSize.Height, grap)
            Dim grap2 As Graphics = Graphics.FromImage(bm)
            grap2.CopyFromScreen(0, 0, 0, 0, ImSize)
            Clipboard.Clear()
            Clipboard.SetImage(bm)
        End Sub

    Se genera un bitmap y dos grafícos uno para el size y otro para copiar la imagen . Esto tambien lo puedes volcar ne un picture PictureBox.Imagen = bm

    Espero te sirva

    Saludos

    • Marcado como respuesta JETET domingo, 19 de noviembre de 2017 19:44
    domingo, 19 de noviembre de 2017 16:47
  • 1000 gracias Marcelo
    domingo, 19 de noviembre de 2017 19:42