VB.net制作简易截图程序范例

 VB.net制作简易截图程序范例：

用vb.net制作简易的截图程序，有一个特备的方法，可以很简单的办到，程序只要用到一个 Form 一个 PictureBox 足以~

下面是源代码：

Public Class Form1 
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click '点击执行 
        Opacity = 0 '窗口透明(不然会照到自己) 
        Dim ScrnPB As PictureBox = PictureBox1 
        Dim ScrnSize As Size = My.Computer.Screen.Bounds.Size 
        Dim ScrnImage As New Bitmap(ScrnSize.Width, ScrnSize.Height) 
        Dim g As Graphics = Graphics.FromImage(ScrnImage) 
        g.CopyFromScreen(New Point(Me.Left + 8, Me.Top + 30), New Point(0, 0), ScrnSize) '以自己窗口为始点修正偏移 
        Dim dc As IntPtr = g.GetHdc 
        g.ReleaseHdc(dc) 
        With ScrnPB '使大小相同 
            .Size = ScrnSize 
            .Image = ScrnImage 
        End With 
        Opacity = 70 '视窗透明度70% 
    End Sub 
End Class