版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

从字面上看就知道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版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/uruseibest/article/details/70477503