Allaolevalla koodinpätkällä saa painiketta klikatessa kuvaruudulla oleva näytön kopioitua leikepöydälle.
Kuinka saan luotua toisen painikkeen, joka kopioisi kuvana vain aktiivisena olevan ohjelman leikepöydälle?
Eli sama toiminto kuin ALT + printscreen.
Option Explicit Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Const myScreen = 0 Const myForm = 1 Private Sub Command1_Click() keybd_event vbKeySnapshot, myScreen, 0&, 0& Image1.Picture = Clipboard.GetData(vbCFBitmap) End Sub
Aihe on jo aika vanha, joten et voi enää vastata siihen.