Private Sub Command1_Click()
Timer1.Interval = 350
End Sub
Private Sub Timer1_Timer()
Static y As Integer
If y = 5 Then y = 0
Picture1(0).Picture = Picture1(y)
y = y + 1
End Sub
استخدمت هاذه الشفره لتحريك مجموعه من الصور لكن جميعها تتحرك بسرعه واحده
هل هناك طريقه استطيع فيها ان اجعل صوره تكون مده عرضها اطول من البقيه
بحيث انني اريد ان يطول عرض الصوره الاخيره بحيث لا تبدا من جديد عرض الصور الا بعد مده من عرض الاخيره
أخي الفاضل
فهمت ما تقصد و أرى أن من الكود السابق أن عدد
الصور 5 و يمثله المتغير y صحيح ؟
فعندما يصل إلى 5 تقوم بإعادته إلى صفر ليبدأ من أول صورة
على هذا الأستنتاج :
أنت تستخدم هذا المتغير كمؤشر لكي تعرض الصور
بعدما تقوم بزايدته 1 تتأكد إذا كنت عند الصورة الأخيرة فإذا كان كذلك
ترجع قيمة المتغير إلى صفر حتى يجده في الدورة التالية عند الصورة الأولى
سننقل الشرط بعدما نرفع القيمة 1 ثم نتأكد بعدها فإذا كان عند الصورة الأخيرة
عندها ستقوم برفع مثلاً قيمة الـ Interval أي الفترة لنقل الضعف مثلاً ونعيد قيمة
المؤشر إلى صفرة من أجل الدورة التالية . ثم في الجزء الخاص بـ Else نعيد الـ Timer
إلى قيمته الأصلية و هي 350 وذلك إذا لم يتحقق الشرط بأننا نقف عند الصورة الأخيرة
يرجع القيمة إلى ما كانت عليه فسيكون الكود كالتالي :
y = y + 1 Picture1(0).Picture = Picture(y).Picture If y = 5 then Timer1.Interval = 700 y = 0 Else Timer1.Interval = 350 End If
إذا لم يتضح لك الأمر بالضبط سأقوم بإرفاق مثل لك
لكني أضفت ردي هذا و ليس لدي وفرة في الوقت .
تم تعديل هذه المشاركة بواسطة COMFORT في 10 سبتمبر 2008 في 08:17
أين صاحب االموضوع