الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

مغلق
بدأه a_salah_hasballa في 11 فبراير 2008 · 2 رد · 705 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

اريد كيف اجبر المستخدم من الاختيار من الكمبو بوكس غير اننا احول الخاصية بتاعت الاستيل الي droupdwon list انا اريدها Droupdwon Combo ولكن اعملها بقاعدة If ولو دخل المستخدم اي حاجة فيها ومخترش منها عند الضغط علي مفتاح حفظ تظهر رسالة انا عملت الكود دة بس بيعطي خطأ بيقول Type Mismaech

If combo.Text = "ذكر" Or "أنثي" Then
Call Save
Else
MsgBox "من فضلك اختر من نوع الموظف لا يقبل مدخلات خارجية"
End If

وكمان جربت 

If combo.Text = "ذكر" And"أنثي" Then
Call Save
Else
MsgBox "من فضلك اختر من نوع الموظف لا يقبل مدخلات خارجية"
End If

تم تعديل هذه المشاركة بواسطة a_salah_hasballa في 11 فبراير 2008 في 14:31

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

لا خير في كاتم العلم ...زكاه العلم ...التعليم صدقة جارية

#2

الأخ الفاضل ...

جرب استخدام الكود التالى:

	Dim Counter As Long

	For Counter = 0 To Combo.ListCount - 1
		If Combo.Text = Combo.List(Counter) Then
			Call Save
			Exit For
		End If
	Next Counter
	If Counter = Combo.ListCount Then
		MsgBox "من فضلك اختر من نوع الموظف لا يقبل مدخلات خارجية"
	End If

شكراً

Eng. Usama El-Mokadem

Nothing is impossible, the word impossible itself says that: I M - Possible

#3

بالنسبة لرسالة الخطأ Type Mismatch ، غير صيغة الشرط IF كالتالي:

'هذه هي الصيغة التي كتبتها أنت
If combo.Text = "ذكر" Or "أنثى" Then
'عدلها لتصبح
If combo.Text = "ذكر" Or combo.Text = "أنثى" Then

سبحان الله وبحمده ... سبحان الله العظيم

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…