+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تحريك صور (/showthread.php?tid=3600)
تحريك صور - عمار عيثاوي - 04-08-14
السلام عليكم اخواني
اني عندي مجموعة من الصور واريد اخليها في بكجر بوكس بس اريد كل فترة تتغير هذه الصورة
يعني تكون كل 10 ثواني تتغير الصور
ممكن المساعدة رجاء
RE: تحريك صور - silverlight - 04-08-14
نضيف Timer و أيضا PictureBox الي الفورم
بعد ذلك نقوم بتعريف متغيران فقط لا غير.
المتغير الأول عبارة عن مصفوفة ArrayList وسوف تستخدم هذه المصفوفة كمخزن لجميع الصور
والمتغير الثاني عبارة عن Integer وهو سيكون بمثابة عداد نحدد به رقم الصورة داخل المصفوفة
في الحدث Load الخاص بالفورم نقوم بإضافة جميع الصور الموجودة في Resources مثلا إلي المصفوفة وأيضا نقوم بجعل Timer1.Enabled = True أي نقوم بتشغيل التايمز وأيضا سنضيف بعض الكود لكي نحدد بعض صفات PictureBox1 مثل خاصية Image وخاصية Size بأبعاد الصورة
في الحدث Tick الخاص بالتايمر Timer1 نقوم بإعطاء قيم للمتغير الرقمي ثم نقوم بإضافة الصور الي PictureBox1 كما هو موضح بالكود التالي
كود :
Public Class Form1
Private m_Images As ArrayList = New ArrayList()
Private m_Count As Integer = 1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' هنا تم استخدم مجموعة من الصورة تم إضافتها الي الريسورس الخاصة ب المشروع
m_Images.Add(My.Resources._04_001_0001)
m_Images.Add(My.Resources._04_001_0002)
m_Images.Add(My.Resources._04_001_0003)
m_Images.Add(My.Resources._04_001_0004)
m_Images.Add(My.Resources._04_001_0005)
PictureBox1.Image = My.Resources._04_001_0001
PictureBox1.Size = PictureBox1.Image.Size
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
' Mod = عدد الصور الموجودة ف المصفوفة
m_Count = (m_Count + 1) Mod 5
PictureBox1.Image = CType(m_Images(m_Count), Image)
End Sub
End Class