(29-10-19, 12:01 AM)3booody كتب : عفوآ اخي
وقد لاحظت شي بسيط بالكود وهو اول فريم يتم التقاطه اسرع من الليبل لذلك فقط اعدت ترتيب الكود بهذا الشكل يعطيك نتيجة 100% ان شاء االله
تحياتي الك
وبالنسبة لأين تعلمت البرمجة فهي سبحان الله صارت عندي حب للبرمجة رغم انها ما اختصاصي بالدراسة لكن من سنوات وانا ابرمج والحمدلله
كود :
Dim bit As New List(Of Bitmap)
Dim frame As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Do Until frame = 61
Label1.Text = frame
Application.DoEvents()
Dim screenshot As New System.Drawing.Bitmap(Bounds.Width, Bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
Dim graph As Graphics = Graphics.FromImage(screenshot)
graph.CopyFromScreen(Bounds.X, Bounds.Y, 0, 0, Bounds.Size, CopyPixelOperation.SourceCopy)
frame += 1
bit.Add(screenshot)
graph.Dispose()
Loop
Dim n As Integer = 0
For Each img As Bitmap In bit
img.Save("C:\Users\3bo0ody\Desktop\ima\ima" & n & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
n += 1
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Bounds = Screen.PrimaryScreen.Bounds
End Sub
لم الاحظ هاذا الخطا
لاكن النتيجة مشاء الله
انا سعييد جدا
لم اجد موضوع اجنبي يشرح هاذا الامر