15-03-13, 06:20 AM
كود :
Private Function getSnapshot(ByVal snapshotForm As Form) As Bitmap
With snapshotForm
.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Dim bmp As New Bitmap(PictureBox1.Width, PictureBox1.Height, Imaging.PixelFormat.Format32bppArgb)
Dim g As Graphics = Graphics.FromImage(bmp)
g.CopyFromScreen(New Point(.Location.X, .Location.Y), New Point(0, 0), bmp.Size)
.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
Return bmp
End With
End Function
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Form2.PictureBox1.Image = getSnapshot(Form2)
Form2.PictureBox1.Image.Save("C:\Users\RainBow\Desktop\Name.jpg")
End Sub