السلام عليكم ورحمة الله وبركاته



درس الأزرة



قم بإنشاء ما يلي


عفوا صاحب الموضوع تعب في احضار الروابط هذه لك ألا ترى انه من اللائق الرد على موضوعه لنمنحه التشجيع تقديرا له وليواصل عطاءه ويزودك مزيداً حول هذا المجال خلال هذه الفترة الحالية تستطيع الرد باستخدام الوضع المتطور للرد فقط اسفل هذا الموضوع عن طريق ايقونة اضافة رد وشاكراً لك دعمك ليكون الجميع في خدمتك في هذا الملتقى

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


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

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 سبق شرحها .
تستفاد الأزرار في عملية جعل المستخدم يختار شيء واحد فقط