VB 隐藏窗口截图/不可视区域载图

最新推荐文章于 2023-11-30 21:12:31 发布

原创最新推荐文章于 2023-11-30 21:12:31 发布 · 7.5k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#vb #command #function #user #c

本文提供了一段使用VBA进行窗口截图的代码实例。该代码通过调用Windows API函数PrintWindow来捕获当前窗体的画面，并将其保存为位图文件。文章中还包含了调整PictureBox属性及隐藏主窗体等技巧。

Option Explicit Private Declare Function PrintWindow Lib "user32" (ByVal SrcHwnd As Long, ByVal DesHDC As Long, ByVal uFlag As Long) As Long Private Sub Command1_Click() Picture1.Width = Me.Width: Picture1.Height = Me.Height Call PrintWindow(Me.hWnd, Picture1.hDC, 0) Picture1.Refresh SavePicture Picture1.Image, "C:/SilenceNet.Bmp" End Sub Private Sub Form_Load() Me.Left = -1000 '呐！把窗口移到屏幕外面去了啊 Picture1.Visible = False Picture1.AutoRedraw = True Picture1.BorderStyle = 0 Picture1.Appearance = 0 End Sub

就这么多代码,本来想不用PictureBox的,后面创建了个内存DC,不知咋的了没效果,不知道是不是兼容ＤＣ没设置,简单点吧,不整那东东了.

代码就这么多

不想拷的直接下工程文件..

http://download.youkuaiyun.com/source/1416633