تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية رسم صورة متحركة على الفورم بدون تايمر
#1
كاتب الموضوع : egyption-coder

منقول بتصرف

كود :
Imports System.Drawing.Imaging
'نستورد المجال لرسم الصورة على الفورم

Public Class Form1
' نعرف الكائن الذي سيحتوي على الصورة المتحركة
Private AnImage As Image = Nothing


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' تحميل الصورة
AnImage = Image.FromFile("E:\تعليم\امثلة فيجوال\gif\WindowsApplication5\WindowsApplication5\WindowsApplication5\Resources\get-6-2009-wd8n8dx6.gif")
' بدء عملية عرض الصورة المتحركة
ImageAnimator.Animate(AnImage, AddressOf ImageAnimator_OnFrameChanged)
End Sub

' حدث يحدث في كل مرة يأتي دور صورة أخرى للعرض
' لاحظ اننا نستدعى هذا الروتين عند تحميل الصفحة
Private Sub ImageAnimator_OnFrameChanged(ByVal sender As Object, ByVal e As EventArgs)
' طلب رسم الصورة التالية
Me.Invalidate()
End Sub

Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
' تجهيز الصورة التالية للعرض

ImageAnimator.UpdateFrames(AnImage)
' رسم الصورة على الفورم
e.Graphics.DrawImage(AnImage, (ClientSize.Width - AnImage.Width) / 2.0F, (ClientSize.Height - AnImage.Height) / 2.0F)
End Sub


End Class
}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استخدام دوال مكتبة من ملف DLL بدون إضافته كمرجع Reference @@أبورائد@@ 7 7,835 18-11-21, 05:30 AM
آخر رد: kaled2025
  شرح كيفية برمجة( مثال نسخ الملفات من مكان انت تحدده الى مكان انت تحدده بامتداد انت تحدده) سعود 5 8,087 04-09-19, 04:32 AM
آخر رد: سعود
  البرنامج بعد وضعه في صورة exe لا يتعامل مع قاعدة البيانات محمد خلف زكي 0 2,693 04-08-16, 05:10 AM
آخر رد: محمد خلف زكي
  شرح كيفية صنع محرر html واستخدامه كـ dll سعود 6 5,986 26-08-13, 09:21 PM
آخر رد: Sajad
  مثال تحريك الفورم من غير اطار RaggiTech 0 2,689 17-10-12, 10:00 PM
آخر رد: RaggiTech
  كيفية عمل صورة - مدورة - Rouded PictureBox ! RaggiTech 0 2,889 17-10-12, 09:55 PM
آخر رد: RaggiTech
  كيفية عمل String عشوائي ! RaggiTech 0 2,686 17-10-12, 09:54 PM
آخر رد: RaggiTech
  تدوير صورة حول مركزها باستخدام gdi+ RaggiTech 0 3,125 17-10-12, 09:30 PM
آخر رد: RaggiTech
  منع أغلاق الفورم عن طريق(×)وأغلاقه بطريقة جميلة RaggiTech 0 2,781 17-10-12, 09:02 PM
آخر رد: RaggiTech
  فائدة - كيفية عمل Ping RaggiTech 0 3,549 17-10-12, 09:00 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم