获取桌面窗口图象

页面导航:首页 > 软件编程 > vb.net > 获取桌面窗口图象

获取桌面窗口图象

来源: 作者: 时间:2016-02-05 12:32 【

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

 

     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----编译运行,看看大功告成了吧!

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <