VB.NET抓屏的另一实例

''Update: Reworked the code to be compatible for VB.NET <Beta 2>. I
'also added a feature to hide the program when the screenshot is being
'taken.
'代码如下：
Public Class frmMain

Private Sub btnCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCopy.Click

'Create the bitmap

Dim b As Bitmap = New Bitmap(Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height)
Dim g As Graphics = Graphics.FromImage(b)

Dim s As Size = New Size(Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height)

'See whether or not to hide the program before taking the
'screenshot.
If chkHide.Checked Then

Me.Hide()
'
'This is a short, sweet, and simple timeout code to pause
'for a specified amount of seconds. On my computer, 1 sec
'is more than enough time for my app to be out of the way
'to take the screenshot to keep it from capturing the app
'with it.
Dim t As DateTime = Now.AddSeconds(1)
'VB.NET抓屏的另一实例
Do : Application.DoEvents()
Loop Until Now.Second >= t.Second
'
'Copy the image from the screen. You can customize the size
'and postions to take the screenshot from.
g.CopyFromScreen(0, 0, 0, 0, s, CopyPixelOperation.SourceCopy)
'
'Show the app again after the screenshot has been taken.
Me.Show()

'Clear this variable from memory.
t = Nothing

Else

'Copy the image from the screen. You can customize the size
'and postions to take the screenshot from.
g.CopyFromScreen(0, 0, 0, 0, s, CopyPixelOperation.SourceCopy)

End If

'Load the copied image to the picturebox control.
pic.Image = b

'Clean up alittle.
g.Dispose()
b = Nothing

End Sub

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click

Dim saveDlg As SaveFileDialog = New SaveFileDialog
Dim dlgResult As DialogResult = New DialogResult

'Set the filter to JPEG files only.
saveDlg.Filter = "JPEG Files (*.jpg)|*.jpg"
saveDlg.Title = "Select the file to save the image too."

dlgResult = saveDlg.ShowDialog

If dlgResult = Windows.Forms.DialogResult.OK Then

'Save the image contained in the picturebox.
pic.Image.Save(saveDlg.FileName)

End If

End Sub

End Class