الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ارجوكم محتاج حد يساعدنى بسرعه

مغلق
بدأه شهيد على الدرب في 5 ديسمبر 2004 · 2 رد · 372 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمه الله

انا عامل label على فورم وعايز اظهر عليها عداد بحيث انه يعد من 10 لغايه 0 على الlabel

يعنى ال label يظهر عليه 10 وبعد كده 9 وبعد كدة 8 وهكذا لغايه ما يجى صفر يقف العد وكمام الفورم تختفى

حد يعرف الكود او اعملها ازاى

يا ريت حد يساعدنى بسرعه

#2

ما تطلبه سهل للغاية ويمكن عمله بطرق مختلفة

قم بوضع Label على الـ Form واجعل خاصية الـ Caption له = 10

ثم قم بوضع Timer على الـ Form واجعل خاصية الـ Interval له = 1000

ثم ضع الكود التالي في حدث الـ Timer للـ Timer الذي وضعناه على النموذج

If Val(Label1.Caption) = 0 Then
Timer1.Enabled = False
Unload Me
Else
Label1.Caption = Val(Label1.Caption) - 1
End If

يمكنك إسراع العد وإبطاؤه من التغيير في خاصية الـ Interval للـ Timer

بالتوفيق

ani.gif
#3

شكرا ليك اخ عبدالله

وجزاكم الله كل خير

هذا الموضوع مغلق.

مواضيع مشابهة