JavaScript is not enabled!...Please enable javascript in your browser

جافا سكريبت غير ممكن! ... الرجاء تفعيل الجافا سكريبت في متصفحك.

-->
الصفحة الرئيسية

اكسيل | كيفية عمل ازرار للواجهة لليوزرفورم مثل المحترفيين Excel Vba | Change back color button Automatically

بسم الله الرحمن الرحيم 
اهلا بكم متابعى موقع عالم الاوفيس
درس جديد وكود جديد من مكتبة اكواد الفيجوال بيسك VBA

كود اليوم بعنوان 

اكسيل كيفية عمل ازرار للواجهة اليوزرفورم مثل المحترفيين


سنتعرف فى هذا الدرس على كيفية عمل ازرار بطريقة احترافية وجذابة وذلك من خلال تغيير لون الخلفية للزر Back color بمجرد التحرك نحوة بالماوس وذلك من خلال الحدث MouseMove للزر المختار

لوعايز تحمل ملف العمل جاهز بالاكواد ورابط مباشر على الميديا فاير الرابط اسفل المقال

المثال العملى 


لنفرض ان لدينا يوزرفورم UserForm وبة مجموعة من الازارار كما ترون زر حفظ وزر تعديل وزر حذف
ونريد عندما نقف بالماوس على الزر يتغير لونة للون الاحمر مثلا

نقوم بالضغط على الزر دبل كليك ونختار حدث  MouseMove ونكتب الكود التالى


Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.CommandButton1.BackColor = vbRed
Me.CommandButton2.BackColor = &H8000000F
Me.CommandButton3.BackColor = &H8000000F
Me.TextBox1.Value = "Are you Want To Save Data"

End Sub


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


Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.CommandButton1.BackColor = &H8000000F
Me.CommandButton2.BackColor = vbRed
Me.CommandButton3.BackColor = &H8000000F
Me.TextBox1.Value = "Are you Want To Edite Data"

End Sub


ثم نختار الزر الثالث وهو الحذف ونكتب الكود التالى

Private Sub CommandButton3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.CommandButton1.BackColor = &H8000000F
Me.CommandButton2.BackColor = &H8000000F
Me.CommandButton3.BackColor = vbRed
Me.TextBox1.Value = "Are you Want To Delete Data"
End Sub


ثم نختار حدث Mouse move لليوزر فورم ونكتب بة هذا الكود

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.CommandButton1.BackColor = &H8000000F
Me.CommandButton2.BackColor = &H8000000F
Me.CommandButton3.BackColor = &H8000000F
Me.TextBox1.Value = ""
End Sub


وبهذا يكون الكود شغال معانا تمام 

لمعرفة كيفية عمل الكود يرجى مشاهدة الفيديو



لتحميل ملف العمل من هنا

الاسمبريد إلكترونيرسالة