Para fazer isto iremos usar uma api do windows.
Primeiro criamos um module e colocamos:
Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal Flags As Long, ByVal ExtraInfo As Long)
Dentro de um botão por exemplo:
Call keybd_event(vbKeySnapshot, 0, 0, 0)
Picture1.Picture = Clipboard.GetData
Têm também de criar a Picture1 onde irá aparecer o texto.
Clipboard.GetData permite ir buscar a memoria o printscreen que será apresentado na picture1
Sem comentários:
Enviar um comentário