如何在VB中执行屏幕捕捉并保存到指定位置

在很多情况下捕捉屏幕上的画面是非常有用的，比如：记录电脑失灵或者写技术手册和软件文档。你可以运用两种方法从VB程序中捕捉屏幕图片。

一种是复杂的方法，包含windows的设备描述表和API组件，还有一种简单的方法运用windows内置的屏幕捕捉能力。按下PrintScrn键将整个屏幕复制到剪贴板中，而[Alt]+[PrintScrn]键只能复制现用视窗。理论上，所有的VB程序都需要用到这个键。

但是，你不能用SendKeys函数来完成这个功能。你必须使用Keydb_Event API函数。这个函数能够综合一个按键，并且因为在键盘硬件中断的时候handler调用的是同一个函数，所以在这个时候要程序去考虑应该按下这个键是非常愚蠢的。

这个函数可以按照下面的方式进行声明：

Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan 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)

一旦屏幕的图片复制到了剪贴板中，你将会运用剪贴板的对象的GetData方法检索它。

下面的代码是用来捕获屏幕并把它显示在PictureBox的控制键中。在那里，你所捕获的图片将被存放到磁盘上。

Clipboard.Clear
Call keybd_event(VK_SNAPSHOT, 0, 0, 0)
DoEvents
Picture1.Picture = Clipboard.GetData(vbCFBitmap)

在运用这个方法的时候要注意两件事情。首先，在你按下[PrintScrn]键之前必须调用

Clipboard.Clear 函数清除剪贴板上的旧数据，第二，在你检索捕获的图片之前你必须调用DoEvents 函数以便允许windows 时间调用Keybd_Event

另外，以下代码实现将图象复制到指定位置

 SavePicture Picture1.Picture, "c:/dd.bmp"