'测试时用的是这个。wpf的一个Rectangle里刷了截下的图
Public Shared Overloads Function GetScreenSnapshot() As Brush
Dim rc As Rectangle = SystemInformation.VirtualScreen
Using bitmap As New Bitmap(rc.Width, rc.Height, PixelFormat.Format32
bp
pArgb)
Using g As Graphics = Drawing.Graphics.FromImage(bitmap)
g.CopyFromScreen(rc.X, rc.Y, 0, 0, rc.Size, CopyPixelOperation.SourceCopy)
End Using
End Using
Return New ImageBrush(ToBitmapSource(bitmap))
End Function
'原始版本
Public Shared Overloads Function GetScreenSnapshot() As Bitmap
Dim rc As Rectangle = SystemInformation.VirtualScreen
Using bitmap As New Bitmap(rc.Width, rc.Height, PixelFormat.Format32bppArgb)
Using g As Graphics = Graphics.FromImage(bitmap)
g.CopyFromScreen(rc.X, rc.Y, 0, 0, rc.Size, CopyPixelOperation.SourceCopy)
End Using
End Using
Return bitmap
End Function
'类型转换器
Public Shared Function ToBitmapSource(bmp As Bitmap) As BitmapSource
Dim returnSource As BitmapSource = Interop.Imaging.CreateBitmapSourceFromHBitmap(bmp.GetHbitmap(), IntPtr.Zero, Int32Rect.Empty, BitmapSizeOptions.FromEmptyOptions())
Return returnSource
End Function

改一句 g.CopyFromScreen(Left, Top, 0, 0, Forms.Screen.PrimaryScreen.Bounds.Size)
这个Rectangle加了磨砂玻璃特效，所以截下来的图这样用可以仿制win7玻璃特效

还有,wpf的绘制似乎都会推迟。
截图前Opacity = 0
截图后Opacity = 1
结果截出的图里还是有当前窗体。

目前我想到的解决绘制延迟的办法是暂时设置Visibility，中途延时截图。这样做截出来的图没问题，但闪烁明显。

内存泄漏非常可怕，不到1分钟就只剩百分之5的ram可用了。

总觉得不是内存泄露，而是你的程序里，有什么地方还存在着引用。GC那个其实不要老是去调用，本来就是个费时的操作，系统才会把它扔到背景线程去做的。

仔细看了看，你这都using了，bitmap在范围外是怎么能用的啊？总觉得有点奇怪。

我做的截图程序是用新建一个内存流(MemoryStream)来装载图片的，等到不用的时候就关闭清除这个内存流
最好自己指定图片数据的容器，我一直都不太敢相信.NET后台的自动处理

妈蛋，我的回帖被系统删了吗？

copyScreen这个函数有bug，不是你的程序的问题。我用API函数截图，getDC(0)可以获得整个屏幕的DC

自己解决了。我把代码彻底重构了一次，功能代码与窗体类分离，结果截图后约5秒，内存占用率下降了。

挖一下坟。
据我分析，内存泄露主要是“Using g As Graphics”这里的g需要销毁掉。
加一句g.Dispose()会好很多。
然后之前截图生成的图片，如果不用了，也要Dispose()才行。
If Not BackgroundImage Is Nothing Then BackgroundImage.Dispose() '在修改背景图片之前，销毁旧的背景图片
System.GC.Collect() '在适当的时机和代码位置，强制进行即时垃圾回收（会增加 CPU 负荷）

代码参考：https://github.com/MoonLord-LM/MyVisualBasic

然后闪烁的问题，可以这样：
SetStyle(ControlStyles.OptimizedDoubleBuffer, True) '先在缓冲区中绘制，然后再绘制到屏幕上，以减少闪烁
SetStyle(ControlStyles.AllPaintingInWmPaint, True) '忽略擦除背景的窗口消息，不擦除之前的背景，以减少闪烁

截图：
Dim ScreenArea As Rectangle = My.Computer.Screen.Bounds
Dim Temp As New Bitmap(ScreenArea.Width, ScreenArea.Height)
Dim Graphics As Graphics = Graphics.FromImage(Temp)
Graphics.CopyFromScreen(0, 0, 0, 0, ScreenArea.Size)
Graphics.Dispose()
Return Temp

我是这么写的截图。
开循环暴力测试，没有内存泄露的问题。