11-07-21, 05:35 PM
الكود دا لاتقاط صور بس للاسف بيلتقط صورة للفورم فقط و يعمل save as انا عاوز كود لاتقاط الشاشة بالكامل مع حفظ تلقائي للصورة في ملف انا احدده في الكود نفسه
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
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
