获取桌面窗口图象

Windows提供了一个API函数GetDesktopWindow,该函数返回桌面窗口的设备描述。 因此利用它就可以轻松获取桌面窗口的图象。
参见下例：
>>步骤1----建立新工程。
>>步骤2----编写如下代码：

Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) _
As Long
Private Declare Function BitBlt Lib "gdi32" _
(ByVal hDestDC As Long, ByVal x As Long, _
ByVal y As Long, ByVal nWidth As Long, _
ByVal nHeight As Long, ByVal hSrcDC As Long, _
ByVal xSrc As Long, ByVal ySrc As Long, _
ByVal dwRop As Long) As Long

Private Sub Form_Load()
Dim lDesktop As Long
Dim lDC As Long

Form1.AutoRedraw = True
Form1.ScaleMode = 1
lDesktop = GetDesktopWindow()
lDC = GetDC(lDesktop)
BitBlt Me.hDC, 0, 0, Screen.Width, Screen.Height, lDC, _
0, 0, VBSrcCopy
End Sub

>>步骤3----编译运行，看看大功告成了吧！

上一篇： 为VB窗口增添平铺贴图背景
下一篇： 设计简单的屏幕保护程序

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!