在很多情况下捕捉屏幕上的画面是非常有用的,比如:记录电脑失灵或者写技术手册和软件文档。你可以运用两种方法从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"