[SnTnt]

(28-10-19, 10:34 PM)3booody كتب : وعليكم السلام ورحمة الله وبركاته

اخي الفاضل ارنا محاولتك اولآ لكي نفهم طلبك اكثر ونتمكن من مساعدتك في ايجاد المشكلة ان شاء الله

اخر كود قد قمت بتعديلة 

هاذا الكود يقوم بألتقاط الصورة وحفظها

كود :

Private Sub Timer4_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
       graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
       screenshot.Save(temp & "\" & framecount & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
       framecount = frame
       frame += 1
       Label6.Text = frame
   End Sub

هاذا ما وضعته في حدث الفورم لود 

كود :

Dim screenshot As System.Drawing.Bitmap
       Dim graph As Graphics
       bounds = Screen.PrimaryScreen.Bounds
       screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
       graph = Graphics.FromImage(screenshot)

لاحظ كود

 screenshot.Save(temp & "\" & framecount & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)

اذا ازلت هاذا الكود يقوم بفعل المطلوب ولا يوجد تـأخير بين الصورة الاولى و الثانية