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

المساعدة في الكود الموضح

مغلق
بدأه أبووليد في 26 أبريل 2003 · 12 رد · 992 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

لدي 15 مربع تسمية جميعها باللون (13434828) اريد عند ضغط زر يتنفذ الكود التالي

If تسمية12.BackColor = 13434828 Then

   تسمية12.BackColor = 8454143

ElseIf تسمية12.BackColor = 8454143 Then

   تسمية11.BackColor = 8454143

ElseIf تسمية11.BackColor = 8454143 Then

   تسمية10.BackColor = 8454143

ElseIf تسمية10.BackColor = 8454143 Then

   تسمية9.BackColor = 8454143

ElseIf تسمية9.BackColor = 8454143 Then

   تسمية8.BackColor = 8454143

ElseIf تسمية8.BackColor = 8454143 Then

   تسمية7.BackColor = 8454143

ElseIf تسمية7.BackColor = 8454143 Then

   تسمية6.BackColor = 8454143

ElseIf تسمية6.BackColor = 8454143 Then

   تسمية5.BackColor = 8454143

ElseIf تسمية5.BackColor = 8454143 Then

   تسمية4.BackColor = 8454143

ElseIf تسمية4.BackColor = 8454143 Then

   تسمية3.BackColor = 8454143

ElseIf تسمية3.BackColor = 8454143 Then

   تسمية2.BackColor = 8454143

ElseIf تسمية2.BackColor = 8454143 Then

   تسمية14.BackColor = 8454143

ElseIf تسمية14.BackColor = 8454143 Then

   تسمية13.BackColor = 8454143

ElseIf تسمية13.BackColor = 8454143 Then

   تسمية15.BackColor = 8454143

End If
#2

تفضل يا ابو وليد

امل انه ما تريد

db1.rar

#3

شكرا اخي الهاجري

ولكن ليس هذا ما اريده

اريد عند الضغط على الزر للمرة الاولى يتغير لون المربع الاول

وعند الضغط على الزر للمرة الثاني ينظر للمربع الاول اذا لونه متغير يغير المربع الثاني

وهكذا مع المربعات المتتاليه

#4

ما زلت انتظر

#5

ما الفائدة من ذلك عملياً أم هي من الكماليات للبرنامج

#6

هذه استخدمها في تكملت برنامج وليست من الكماليات 100%

#7

اختصار لكم هذا مثال للمطلوب

الرجاء سرعة الرد

مëçل_للمّلوè.zip

#8

أحبتي:

لم أطلع على المثال الأخير قمت باستخدام قاعدة البيانات المثال الذي قام بإرفاقها أخي الحبيب الهاجري للتعديل عليها وأرجو من الأخ الحبيب أبو وليد توضيح الفائدة من هذا الطلب إن رأى فيها فائدة لنا وبالتوفيق للجميع.

المثال بعد التعديل

db_2_.zip

#9

احاول عمل برنامج ( الطريق الى المليون )

#10

السلام عليكم

تفضل البرنامج بعد التعديل كما تريد بمشيئة الله :

والكود هو :

Option Compare Database

Dim test As Integer



Private Sub Form_Load()

test = 1

End Sub



Private Sub ÃãÑ0_Click()

If test = 1 And Me.ÊÓãíÉ12.BackColor = 13434828 Then

   Me.ÊÓãíÉ12.BackColor = 8454143

   test = test + 1

   'Me.g1.Visible = True

ElseIf test = 2 And Me.ÊÓãíÉ12.BackColor = 8454143 Then

   Me.ÊÓãíÉ11.BackColor = 8454143

   test = test + 1

   'Me.g2.Visible = True

ElseIf test = 3 And Me.ÊÓãíÉ11.BackColor = 8454143 Then

   Me.ÊÓãíÉ10.BackColor = 8454143

   test = test + 1

   'Me.g3.Visible = True

ElseIf test = 4 And Me.ÊÓãíÉ10.BackColor = 8454143 Then

   Me.ÊÓãíÉ9.BackColor = 8454143

   test = test + 1

   'Me.g4.Visible = True

ElseIf test = 5 And Me.ÊÓãíÉ9.BackColor = 8454143 Then

   Me.ÊÓãíÉ8.BackColor = 8454143

   test = test + 1

   'Me.g5.Visible = True

ElseIf test = 6 And Me.ÊÓãíÉ8.BackColor = 8454143 Then

   Me.ÊÓãíÉ7.BackColor = 8454143

   test = test + 1

   'Me.g6.Visible = True

ElseIf test = 7 And Me.ÊÓãíÉ7.BackColor = 8454143 Then

   Me.ÊÓãíÉ6.BackColor = 8454143

   test = test + 1

   'Me.g7.Visible = True

ElseIf test = 8 And Me.ÊÓãíÉ6.BackColor = 8454143 Then

   Me.ÊÓãíÉ5.BackColor = 8454143

   test = test + 1

   'Me.g8.Visible = True

ElseIf test = 9 And Me.ÊÓãíÉ5.BackColor = 8454143 Then

   Me.ÊÓãíÉ4.BackColor = 8454143

   test = test + 1

   'Me.g9.Visible = True

ElseIf test = 10 And Me.ÊÓãíÉ4.BackColor = 8454143 Then

   Me.ÊÓãíÉ3.BackColor = 8454143

   test = test + 1

   'Me.g10.Visible = True

ElseIf test = 11 And Me.ÊÓãíÉ3.BackColor = 8454143 Then

   Me.ÊÓãíÉ2.BackColor = 8454143

   test = test + 1

   'Me.g11.Visible = True

ElseIf test = 12 And Me.ÊÓãíÉ2.BackColor = 8454143 Then

   Me.ÊÓãíÉ14.BackColor = 8454143

   test = test + 1

   'Me.g12.Visible = True

ElseIf test = 13 And Me.ÊÓãíÉ14.BackColor = 8454143 Then

   Me.ÊÓãíÉ13.BackColor = 8454143

   test = test + 1

   'Me.g13.Visible = True

ElseIf test = 14 And Me.ÊÓãíÉ13.BackColor = 8454143 Then

   Me.ÊÓãíÉ15.BackColor = 8454143

   test = test + 1

   'Me.g14.Visible = True

ElseIf test = 15 Then MsgBox "ãÚ ÊÍíÇÊì ÇÇ ÇáÝÇÑæÞ ÇÇ", vbDefaultButton1, "ÇäÊåì"



End If

End Sub

مëçل_للمّلوèalfarokediting.zip

" وما توفيقى إلا بالله عليه توكلت وإليه أنيب "
-------------------------------------------------
قل : " لا حول ولا قوة إلا بالله "
-------------------------------------------------

#11

مع ملاحظة انه تم وضع عداد لاكتشاف أخر خطوة تم التوقف عليها والبدء من الخطوة التالية ...

وعذرا لان اللغة العربية لم تظهر بشكل جيد ..

" وما توفيقى إلا بالله عليه توكلت وإليه أنيب "
-------------------------------------------------
قل : " لا حول ولا قوة إلا بالله "
-------------------------------------------------

#12

شكرا اخي / المزيني

نعم هذا مااريده

بارك الله فيك وزادك من العلم

شكرا اخي / الفاروق

لم اطلع على مثالك بعد

ولكن من الكود يتضح انه يختلف عند الكود في مثال الاخ المزيني

وتعلم الاكواد وطرقها اهم

بارك الله فيك وزادك من العلم

#13

مع التحية

هذه طريقة اخرى للاطلاع على المثال

azm.zip

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

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