資訊好好玩

0愛的鼓勵 0訂閱站台

事實上，這是摸擬按下Print Screen的作法
Private Declare Sub keybd_event Lib "user32" 
(ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, 
ByVal dwExtraInfo As Long)
Const theScreen = 1
Const theForm = 0 '此項值為1時 COPY 某視窗畫面，程式需增加設定條件
Private Sub Command1_Click()
Call keybd_event(vbKeySnapshot, theForm, 0, 0)
'若theForm改成theScreen則Copy整個Screen
DoEvents
Picture1.Picture = Clipboard.GetData(vbCFBitmap)
End Sub