بسم الله الرحمن الرحيم

درس الأزرة
قم بإنشاء ما يلي
" ملاحظة هامة : هناك خطوات كثيرة تم اختصارها ، فإذا حدث لبس عليك فعد إلى الدروس الست السابقة "


لقد تم شرح الخطوات لتصميم الشكل بمجمله في الدروس السابقة في قسم الفيجول بيسك فعد لها

ثم أضف الكود داخل زر الأوامر " نفذ المطلوب "

If Option1.Value = True Then
Text1 = "المصمم"
End If
If Option2.Value = True Then
Text1 = "سحاب"
End If
If Option3.Value = True Then
Text1 = "إن التي زعمت فؤادك ملها ... "
End If

ماذا تعني الأسطر الماضية ؟
الأداة الشرطية IF سبق شرحها .
Option1,2,3 اسماء الأزرة و يمكن تغييرها .
Value تحديد خاصية الزر .
True السماح للزر بالعمل في حالة True .
Then سبق شرحها .
تستفاد الأزرار في عملية جعل المستخدم يختار شيء واحد فقط .

 

الدرس التالي