كيفية عمل كمبوبوكس واجبار المستخدم علي الاختيار

أساسا أنت بتطلب من المستخدم أختيار حاجة من 2 و بالتالى فأن الـ Combo-Box ليست الأداه المثالية لكده , أستخدم Option buttons أحسن و نصيحة منى أنك تراعى دائما أستخدام الأدوات المناسبة و إلا ليه المبرمجين تعبوا نفسهم و عملوا أدوات مختلفه ؟

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

أنا غيرت رأيى و أستعملت Check-box جرب كده و قول هو ده اللى عايزه و لا لأ

Printer.rar

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

المستخدم وهو بيدخل البيانات اجبرة انا يختار هل يوجد طابعة ام لا وفي حالة اختيارة يوجد اجبرة انة يدخل موديل الطابعة انا عايز الكود اللي يعمل كدة وتتعب معاية اكتر لو عملتلي مثال

untitled.rar

طب فى النافذة دى هيكون فيه أى Button ينفذ المطلوب , لو كده ممكن تعمل زى المثال اللى أنا ارفقته فوق و هو أن الـ Button ده يبقى معطل أذا لم يختار أى أختيار

بس فيه حاجة أنت بتقول عايزه يختار أذا كان فيه طابعة أم لا , دى حاجة أنت كمبرمج تشوفها و ليس على المستخدم تحديدها !

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

هاد الكود راح يظهر كل الطابعات

Dim P As Printer
For Each P In Printers
Combo1.AddItem P.DeviceName

Next

a_salah_hasballa كتب:

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

هوضح اكتر

انا عامل كمبوبوكس اسمة طابعة فية نعم او لا عايز المستخدم لزم يختار حاجة في حالة اختيارة لنعم انا عامل ليبل اسمة نوع الطابعة لزم يدخل نوع الطابعة في اختيارة لنعم

اية الكود اللي يعمل كدة انا بعت مثال مرفق يوضح اكتر انا عايز اية

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

فقط اكتب الكود التالي في المكان المناسب

if combo1.listindex=-1 then
msgbox "اختر من القائمة "
combo1.setfocus
Exit sub
end if

تحياتي