版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
从字面上看就知道Screen类是与屏幕显示相关的。
Screen类提供了以下属性：
AllScreens：获取系统上所有屏幕的数组。
BitsPerPixel： 获取与数据的一个像素相关联的内存位数。
Bounds：一个Rectangle值，指明了屏幕高度和宽度的像素
DeviceName： 获取与屏幕关联的设备名称。
Primary： 获取一个值，该值指示某个屏幕是否为主显示屏
PrimaryScreen： 获取主屏幕。
WorkingArea：一个Rectangle值，指明屏幕的工作区的高度和宽度。 所说的工作区是屏幕显示的桌面区域，不包括任务栏、停靠窗口和停靠工具栏。
以下代码获取计算机连接的每个显示器的显示区域和工作区域大小：
Dim scr() As Screen = Screen.AllScreens
For i As Integer = 0 To scr.Length - 1
Debug.Print("屏幕区域：" & scr(i).Bounds.X & "," & scr(i).Bounds.Y & "," & scr(i).Bounds.Width & "," & scr(i).Bounds.Height)
Debug.Print("工作区域：" & scr(i).WorkingArea.X & "," & scr(i).WorkingArea.Y & "," & scr(i).WorkingArea.Width & "," & scr(i).WorkingArea.Height)
Next
我的电脑上获得的：
屏幕区域：0,0,1680,1050
工作区域：0,0,1680,1010
我的电脑只有一个显示器。屏幕区域高度比工作区域高度多了的40像素是任务栏。
获得屏幕区域的Rectangle，我们就可以知道屏幕像素大小了。然后可以通过Graphics对象的CopyFromScreen()方法获得屏幕截图。
以下代码获得屏幕截图：
Dim scr1 As Screen = Screen.PrimaryScreen
Dim rec As Rectangle = scr1.Bounds
Dim bmp As New Bitmap(rec.Width, rec.Height)
Dim g As Graphics = Graphics.FromImage(bmp)
g.CopyFromScreen(New Point(0, 0), New Point(0, 0), New Size(rec.Width, rec.Height))
g.Dispose()
bmp.Save("d:\aa.jpg", Imaging.ImageFormat.Jpeg)
bmp.Dispose()
我的电脑只有一个显示器，所以只需要将
Dim scr1 As Screen = Screen.PrimaryScreen
获得屏幕高度和宽度后，用高度和宽度新实例化一个Bitmap对象bmp，
接着新建一个graphics对象g，
然后通过g.CopyFromScreen获得屏幕图像，
最后保存bmp。
不知道大家是否运行了上面的代码，屏幕截图保存到了d:\aa.jpg，请大家原谅我的偷懒，自己定义保存图片的名称吧。
截图是保存了，可是还有瑕疵：我们用来截图的窗口也保存下来了。
怎么解决呢？
当然还是有办法的。
请在上面一段代码前面加上：
Me.Visible = False
代码最后加上
Me.Visible = True
还是不行，程序运行太快了，窗体还没有隐藏完就抓图了，至少我这台电脑是这样。
OK。
再加上
Threading.Thread.Sleep（200）
让程序休息一下。
完整代码：
Me.Visible = False
Threading.Thread.Sleep（200）
Dim scr1 As Screen = Screen.PrimaryScreen
Dim rec As Rectangle = scr1.Bounds
Dim bmp As New Bitmap(rec.Width, rec.Height)
Dim g As Graphics = Graphics.FromImage(bmp)
g.CopyFromScreen(New Point(0, 0), New Point(0, 0), New Size(rec.Width, rec.Height))
g.Dispose()
bmp.Save("d:\aa.jpg", Imaging.ImageFormat.Jpeg)
bmp.Dispose()
Me.Visible = True
运行抓图效果：
由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。
学习更多vb.net知识，请参看vb.net教程目录
————————————————
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
