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

最新推荐文章于 2025-04-21 14:18:43 发布

silencenet

最新推荐文章于 2025-04-21 14:18:43 发布

阅读量7.5k

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/SilenceNet/article/details/4278065

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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