muxisimas gracias!!!
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPrivate Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub btn_Activa_Click()
'Captura la ventana activa
keybd_event 44, 1, 0&, 0&
End Sub
Private Sub btn_Pantalla_Click()
'Captura toda la pantalla
keybd_event 44, 0, 0&, 0&
End Sub
Private Sub btn_Pegar_Click()
'pega la imagn q c tenga copiada
Picture1.Picture = Clipboard.GetData(vbCFBitmap)
End Sub
CitarADIOS JILIPOLLAS