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

السلام عليكم ورحمة الله وبركاته

اخي يمكنك عمل ذلك دون استخدام تلك الدالة وذلك عن طريق الاتي

اولا غير خاصية Style وخليها Graphical

ثم اكتب الكود التالي تحت الزر

Command1.BackColor = vbRed

وهكذا سيتغير اللون

===============

الى اللقاء

أخى الكريم لتغير لون الزر عند المرور عليه يمكنك استخدام الطريق التاليه

اولا كما قال لك الأخ MR^KING

تقوم بتحويل خاصيه style

إلى graphical

ثم تقوم بكتابه الكو التالى فى حدث mouse move

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = vbRed
End Sub

ليكون شكل الكود كالتالى

ويمكنك ايضا تغير كلمه vbred بالداله rgb

وتكون كالتالى

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = RGB(120, 150, 130)
End Sub

الداله ديه بتجيب اللون من تركيب الثلاث الوان الأساسيه

r red احمر

g green اخضر

b blue ازرق

ولوفى اى سؤال انا موجود

مشكور أخي mr king على إجابتك للسؤال وعلى المساعدة المتواصلة من لدنك.... وجزاك الله خيرا

أخي ...genius شكرا على الكود وبالفعل طبقته ونجح ... بس كيف أعمل عندما ابعد الماوس عن الزر يرجع اللون الأول عملت عن طريق mousup بس ما استويت ... ومشكور

أخى الكريم

يمكنك تغير الون بتنفيذ نفس الكود

ولكن فى الحث mouse move الخاص بالفورم

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.BackColor = RGB(120, 150, 130)
End Sub

اعكس العملية على الفورم ... اي عند تحرك الماوس على الفورم

CmdBakColor.rar

مشكور أخي .... الحين تمام ... في آمان الله