بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
درس جديد وكود جديد من مكتبة اكواد الفيجوال بيسك VBA
كود اليوم بعنوان
اكسيل كيفية عمل ازرار للواجهة اليوزرفورم مثل المحترفيين
لوعايز تحمل ملف العمل جاهز بالاكواد ورابط مباشر على الميديا فاير الرابط اسفل المقال
المثال العملى
لنفرض ان لدينا يوزرفورم 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
وبهذا يكون الكود شغال معانا تمام