vb.net 教程 5-8 Screen类

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
从字面上看就知道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 教程 目录