如何获取截图，仅适用于图片框

Question

I used so many pictureboxs to make 1 image, now I want to take a screen of it so I can save it. I just copied this code from Msn, and edited a bit, but it doesn't work.

Dim myGraphics As Graphics = PictureBox1.CreateGraphics()
Dim s As Size = PictureBox1.Size
memoryImage = New Bitmap(s.Width, s.Height, myGraphics)
Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage)
memoryGraphics.CopyFromScreen(PictureBox1.Location.X, PictureBox1.Location.Y, 0, 0, s)
PictureBox2.Image = memoryImage

Answer 1

Updated solution:

    Dim s As Size = PictureBox1.Size
    Dim memoryImage = New Bitmap(s.Width, s.Height)
    Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage)
    Dim ScreenPos As Point = Me.PictureBox1.PointToScreen(New Point(0, 0))
    memoryGraphics.CopyFromScreen(ScreenPos.X, ScreenPos.Y, 0, 0, s)
    PictureBox2.Image = memoryImage

Answer 2

Try this:

    Dim desktopSize As Size
    desktopSize = System.Windows.Forms.SystemInformation.PrimaryMonitorSize
    Dim height As Integer = desktopSize.Height
    Dim width As Integer = desktopSize.Width
    PictureBox1.Left = 0
    PictureBox1.Top = 0
    PictureBox1.Width = width
    PictureBox1.Height = height
    PictureBox2.SizeMode = PictureBoxSizeMode.StretchImage 'To test that region has captured
    Dim memoryImage As Bitmap
    Dim myGraphics As Graphics = PictureBox1.CreateGraphics()
    Dim s As Size = PictureBox1.Size
    memoryImage = New Bitmap(s.Width, s.Height, myGraphics)
    Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage)
    memoryGraphics.CopyFromScreen(PictureBox1.Location.X, PictureBox1.Location.Y, 0, 0, s)
    PictureBox2.Image = memoryImage