怎样把整个屏幕拷贝到剪贴板?

Question

用PrtSc
   Sys Rq
键就得啦

Answer 1

事实上，这是摸拟按下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 = 0Private Sub Command1_Click()
Call keybd_event(vbKeySnapshot, theForm, 0, 0)
注释：若theForm改成theScreen则Copy整个Screen
DoEvents
Picture1.Picture = Clipboard.GetData(vbCFBitmap)
End Sub

Answer 2

用VB的SendKeys函数，请看帮助文件