بســم الله الـرحمــن الرحيــم
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
لدي سؤال مهم ...قمت ببرمجة واجهة عبارة عن (radio buttonsو checkboxes)تحتوي على عدة اسئلة يجيب عنها المستخدم بالأختيار ثم يقوم بالضغط على رز(add)ويقوم هذا الزر بطباعة ماتم اختياره على(list box)
ولكن عندما قمت بكتابة الكود في button(add)
حصلت على عدد كبير جدا من الجمل الشرطية ifواريد ان استفسر عن طريقة لإختصار هذا العدد الهائل من الجمل الشرطية ؟
يمكن استخدام دوران For Each لاختصار كل هذه الجمل الشرطية ،
مثال :
Dim ctl As Control For each ctl in Me.Controls If TypeOf ctl Is OptionButton Then If ctl.value = true Then List1.add ctl.Caption ElseIF TypeOf ctl Is CheckBox Then If ctl.value = vbChecked Then List1.add ctl.Caption End IF Next
سبحان الله وبحمده ... سبحان الله العظيم
شكراً لك اخي الكريم
ولكن لدي سؤال...ماهو المقصود بهذة العبارة
ctr1.value=true
ماهي الخاصية التي يمكنني استخدامها هنا؟؟ ..لان خاصية checked لا يتم قبولها
واريد معرفة طريقة عمل هذة الحلقة اذا امكن ذلك
وشكرا
:D
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…