Question

用vb6设计一段截全屏的代码~

Sendkeys "{PriSc}"
SavePicture Clipboard.GetData, "C:\pic.bmp"
这样为什么不行啊？ 貌似Sendkeys "{PriSc}" 不能用来截屏。
求高手改一下

Answer 1

SendKeys永远不能发送的唯一按键就是PrintScreen！解决方案：

'声明API函数：
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
'使用：
'先声明常量：
Const VK_SNAPSHOT As Byte = &H2C
'把应用窗口图象放到剪贴板：
Call keybd_event(VK_SNAPSHOT, 0, 0, 0)
'把整个屏幕抓到剪贴板：
Call keybd_event(VK_SNAPSHOT, 1, 0, 0)
'注：这只是把图像放到内存中的代码。保存图像的代码自己写

这样应该就可以了。有问题请追问我