اريد كود يقوم بتلوين زر في الفورم عند الوقوف عليه وينفذ مع عدد 63 زر في الفورم

[رائد 1982]

السادة الاساتذة

 

لدي فورم به عدد 63 زر تقريبا

احتاج لكود يقوم بتلوين الز الذي اقف عليه ( وقوف فقط ) وليس الضغط عليه الي اللون الاحمر مثلا ليصبح

في ذلك الوقت مختلف عن باقي الازرار

وقد قمت بوضع كود اخذته من برنامج لديكم باسم قوائم بسيطة للاستاذ / حمادة عمر

وقد قمت بالفعل بتنفيذه في المرفق ولكن علي زرين فقط ( الرئيسية - اغلاق ) ولكن ان اردت تنفيذ هذا الكود علي الـ 63 زر سيكون الكود طويلا جدا

فهل من حل لذلك

اعلم ان الحل لديكم ان شاء الله

لكم الشكر

واليكم الكود المستخدم الذي اقصده والملف المرفق

Private Sub CommandButton63_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton63.BackColor = 255
CommandButton64.BackColor = &HFF8080
End Sub

ملفات مرفقة

لون ازرار الفورم.rar

[شوقي ربيع]

السلام عليكم

ضع أي عدد تريده من الازرار في هذا الفورم سيطبق عليه مطلبك  اوتوماتيكيا

كما اضفت تغيير اللون عند الضغط على الزر

تحياتي

 

تغيير اللون.rar

[رائد 1982]

الاستاذ القدير  / شوقي ربيع

 

انت بحق شخص راائع واستاذ كبيييييييييييييير

بالفعل هذا ما اريده بالضبط

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

هل للفرام اي تأثير في ذلك ام ماذا

 

واعلم اني اثقل عليك جدا ... برجاء تنفيذه علي الملف المرفق في المشاركة الاولي

 

لك مني ارق التحيات

تلميك

[إبراهيم ابوليله]

اخى شوقى

كود رائع جدا بارك الله فيك

[شوقي ربيع]

الاستاذ القدير  / شوقي ربيع

 

انت بحق شخص راائع واستاذ كبيييييييييييييير

بالفعل هذا ما اريده بالضبط

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

هل للفرام اي تأثير في ذلك ام ماذا

 

واعلم اني اثقل عليك جدا ... برجاء تنفيذه علي الملف المرفق في المشاركة الاولي

 

لك مني ارق التحيات

تلميك

السلام عليكم

الكود يعمل عادي وبطريقة سليمة

ربما اخطأت في التركيب

هذا ملفك مطبق عليه الكود

ملاحضة يمكن تطبيق  الامر على أي عدد من الفورمات في الملف نفسه

مثلا لديك اربعة فورمات في ملفك كل ماعليك هو كتابت هذين الكودين في حدث الاكتفيتي وحدث تحريك الماوس على التوالي  للفورم الذي تريد تطبيق الامرعليه

Private Sub UserForm_Activate()
  Chaouki Me, vbRed
 End Sub

 Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 Rabie_normal
 End Sub

لون ازرار الفورم.rar

[شوقي ربيع]

اخى شوقى

كود رائع جدا بارك الله فيك

السلام عليكم

يسرني دائما تعليقكم استادي العزيز

[رائد 1982]

الاستاذ القدير  / شوقي ربيع

بوركت يا رجل ...

 

تم التنفيذ بالفعل بكفاءة علي ملفي

ولكن لحبي التعلم بعد تنفيذ طلبي ... لي بعض الاستفسارات

 

1- لم يتم تنفيذ الكود لدي الا بعد وضعه في Module1  واعني الموديل رقم 1 حيث كنت اضعه في Module 4  ولم يعمل ... فهل لهذا الموضوع علاقة بعدم تنفيذ الكود ام لا ؟؟

2-   وكذلك تغيير  Class1  الي الاسم المستخدم من حضرتك وهو RabieV .... هل لهذا الموضوع علاقة بعدم تنفيذ الكود ام لا ؟؟

3 - لماذا تم استخدام Class Module   ولم يتم استخدم الـ Module  العادية ؟؟!!  ( مهم بالنسبة لي لفهم الموضوع )

 

تقبل خالص خالص خالص تحياتي استاذي العزيز

 

تلميذك

[رجب جاويش]

الأستاذ العبقرى / شوقى ربيع

بجد ابداعات فائقة الروعة

بارك الله فيك

[شوقي ربيع]

الاستاذ القدير  / شوقي ربيع

بوركت يا رجل ...

 

تم التنفيذ بالفعل بكفاءة علي ملفي

ولكن لحبي التعلم بعد تنفيذ طلبي ... لي بعض الاستفسارات

 

1- لم يتم تنفيذ الكود لدي الا بعد وضعه في Module1  واعني الموديل رقم 1 حيث كنت اضعه في Module 4  ولم يعمل ... فهل لهذا الموضوع علاقة بعدم تنفيذ الكود ام لا ؟؟

2-   وكذلك تغيير  Class1  الي الاسم المستخدم من حضرتك وهو RabieV .... هل لهذا الموضوع علاقة بعدم تنفيذ الكود ام لا ؟؟

3 - لماذا تم استخدام Class Module   ولم يتم استخدم الـ Module  العادية ؟؟!!  ( مهم بالنسبة لي لفهم الموضوع )

 

تقبل خالص خالص خالص تحياتي استاذي العزيز

 

تلميذك

السلام عليكم

بالنسبة لسؤال الاول

لايهم اسم  الوحدة القياسية (Standard Modules)  ان كان Module1  أو Module 4  أو حتى ان غيرت التسمية الخاصة به لانه لاعلاقة له بالاكواد التي يحويها وسيشتغل عادي على أي مسمى من الوحدات القياسية

اما السؤال الثاني

فان تسمية  الطبقات ( Class Modules) مهمة ولايجب تغيرها لانه اذا غيرت هذه الاخيرة وجب الرجوع الى الوحدة القياسية وتغيير عبارة

 Public bouton() As New RabieV

الى التسمية التي غيرناها  ايها والا فأن الكود يعطينا خطاء في بدات تشغيل البرنامج

وسبب هو الجاوب للسؤال الثالث

هو ان الطبقات ( Class Modules)  في عبارات موجزة

هو عبارة عن  قالب  يتم إنشاء مثيل كائن فيه في وقت التشغيل.

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

والكائن في مثالنا هذا هو  CommandButton بحيث اصبح بمقدورنا تعريف جميع CommandButton الذي يحويهم الفورم مرة واحدة كمجموعة بدل مانفعل ذالك كل على حدى

بحث بكل بساطة اخذنا حدث تحريك الماوس على CommandButton وامرناه بتغير لون CommandButton الذي هو في حالة الحدث أي في حدث تحريك الماوس

ومن هنا نعود الى السؤال الثاني هو لماذى لايمكننا تغير اسم الطبقة دون تغيرها في الوحدة القياسية

بكل بساطة لان الوحدة الطبقة هنا اصبحت كائن

ارجو ان اوكن قد اوصلت الفكرة لاني بصراحة لسة جيدا في شرح

تحياتي .

[شوقي ربيع]

الأستاذ العبقرى / شوقى ربيع

بجد ابداعات فائقة الروعة

بارك الله فيك

السلام عليكم

استادي العزيز لك جزيل الشكر لردك الجميل

تحياتي

[حمادة عمر]

ملك الحركات

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

 

بالفعل ابداعات وتألق مستمر

تقبل خالص تحياتي