إنشاء القوائم2

? م/تكملةالمحاضرةالسابقة
أدخل نص البرنامج التالي في الإجراء mnuRed_Click():
Private Sub mnuRed_Click()
تغيير لون النموذج إلى الأحمر
frmColors.BackColor = vbRed

بما أن لون الإطار صار أحمر
يجب تعطيل البند "أحمر" وتفعيل
البندين "أبيض" و "أزرق" في القائمة
mnuRed.Enabled = False
mnuBlue.Enabled = True
mnuWhite.Enabled = True
End Sub
? أدخل نص البرنامج التالي في الإجراء mnuBlue_Click():
Private Sub mnuBlue_Click()
تغيير لون النموذج إلى الأزرق
frmColors.BackColor = vbBlue

بما أن لون الإطار صار أزرق
يجب تعطيل البند "أزرق" وتفعيل
البندين "أبيض" و "أحمر" في القائمة
mnuBlue.Enabled = False
mnuRed.Enabled = True
mnuWhite.Enabled = True
End Sub
? أدخل نص البرنامج التالي في الإجراء mnuWhite_Click():
Private Sub mnuWhite_Click()
تغيير لون النموذج إلى الأبيض
frmColors.BackColor = vbWhite

بما أن لون الإطار صار أبيض
يجب تعطيل البند "أبيض" وتفعيل
البندين "أحمر" و "أزرق" في القائمة
mnuWhite.Enabled = False
mnuBlue.Enabled = True
mnuRed.Enabled = True
End Sub