08-07-21, 01:00 PM
(08-07-21, 12:38 PM)asemshahen5 كتب :PHP كود :
Private Sub BtnScreenShot_Click(sender As System.Object, e As System.EventArgs) Handles BtnScreenShot.Click
Dim img As New Bitmap(Width, Height)
DrawToBitmap(img, New Rectangle(New Point(0, 0), Size))
Dim opn As New SaveFileDialog
opn.Filter = "*.png|*.png"
If opn.ShowDialog = Windows.Forms.DialogResult.OK Then
img.Save(opn.FileName, Imaging.ImageFormat.Png)
End If
End Sub
شكرا جزيلا