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

لقد تم شرح الخطوات لتصميم الشكل بمجمله في الدروس السابقة في قسم
الفيجول بيسك فعد لها
|
ثم أضف الكود داخل زر الأوامر "
نفذ المطلوب "
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 سبق شرحها .
تستفاد
الأزرار في عملية جعل المستخدم يختار شيء واحد فقط .
القوائم
1- ابدأ مشروع قياسي " عام " كالعادة .
2- اذهب إلى
القائمة TOOLS ثم Menu Editor فيظهر الإطار .

3- قم بإنشاء
الشكل التالي

3- اضغط
موافق
4- اتجه إلى

فتظهر لك نافذة
الكود فاكتب ما يلي :
|
"ماذا ستصمم اليوم ؟ " |
print |
و في خانة
