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 SubAihe on jo aika vanha, joten et voi enää vastata siihen.