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

Question

Como capturar Pantalla y que quede pendiente de pegar  con contro+v

Gracias

Answer 1

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

Answer 2

1000 gracias Marcelo