تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ما هو الكود المُستخدم لعدم السماح بترك ال Combobox فارغة
#21
ههههههههه الصراحة انا مستغرب ليش ما زبط معاك امر غريب مع انه الكود بستخدمه كثير وهو ايضا يستخدم لتفريغ الكومبو بوكس على كل الحال المهم انه امورك زبطت 

بالتوفيق
الرد }}}
تم الشكر بواسطة: Hazem1
#22
هذا مثال للكود قمت بتطبيقه وهو يعمل 

PHP كود :
       If ComboBox1.SelectedIndex = -1 Then
            MsgBox
("no data")
 
       Else
            MsgBox
("okey")

 
       End If 


هذه الصورة في حال الكومبو بوكس فاضي شوف الرسالة 







هذه الصورة في حال الكومبو بوكس يوجد فيه اختيار





الرد }}}
تم الشكر بواسطة: Hazem1
#23
(04-10-18, 03:22 PM)Hazem1 كتب :
(03-10-18, 11:11 PM)princelovelorn كتب : إذا كنت تريد عدم السماح بترك الtextbox  او combobox فارغين نصيا 
بغض النظر عن نوع النص 

ممكن تستخدم  الطريقة التالية
كود :
       Dim errorpro As New ErrorProvider
       If Trim(Textbox1.Text) = "" Then
           errorpro.SetError(Textbox1, "يرجى إدخال نص")
           MsgBox("يرجى إدخال نص")
           Exit Sub
       ElseIf Trim(Textbox2.Text) = "" Then
           errorpro.SetError(Textbox2, "يرجى إدخال نص")
           MsgBox("يرجى إدخال نص")
           Exit Sub
       ElseIf Trim(Combobox1.Text) = "" Then
           errorpro.SetError(Combobox1, "يرجى إدخال نص")
           MsgBox("يرجى إدخال نص")
           Exit Sub
       End If
جزاك الله خيراً أخي العزيز [b][b]princelovelorn[/b]، ما قصرت، هناك نقطة أُخرى إن كنت تعلمها فالحمد لله وزادك الله علماً، بعد تحسين الكود وجدت الأفضل استخدام أداة ErrorProvider عوضًا عن المُتغير لأن أيقونة الخطأ التي تظهر عندما تُصبح القيمة فارغة لن تختفي إلا باستخدام الأداة.[/b]

أمين وإياك أخي الفاضل
وهذا تقصير مني للأسف لم أخبرك بها 
فلكي تختفى أيقونة الخطأ يجب ( وضع الكود التالي في حدث textchanged (

كود :
   errorpro.SetError(TextBox1, "")
       errorpro.SetError(TextBox2, "")
       errorpro.SetError(Combobox1, "")

 
وهو أعطاء قيمة فارغة للأداة وبالتالي تلقائيا لن تظهر بعد كتابة حرف واحد 
ويجب وضع الكود  في حدث textchanged لكل كنترول تستخدم معه اداة errorprovider
أو ممكن تعمل sub  للتنظيف  لتسهيل الأمور عليك
وسواء أستخدمت الأداة أو المتغير  فستنجح بإذن الله معك
وأيضا نصيحة من أخيك أرجو أن تتقبلها إن وقعت بخطأ ما في البرمجة في كود معين  حاول تضعه في try catch  لكي تصيد الخطأ وتحدد مكانه بالظبط
لا إله إلا الله وحده لا شريك له له الملك وله الحمد وهو على كل شئ قدير
سبحان الله وبحمده سبحان الله العظيم
سبحان الله والحمد لله ولا إله إلا الله والله أكبر ولا حول ولا قوة إلا بالله العلى العظيم
رب أغفر لي 

الرد }}}
تم الشكر بواسطة: Hazem1 , Hazem1
#24
(04-10-18, 09:28 PM)princelovelorn كتب :
(04-10-18, 03:22 PM)Hazem1 كتب :
(03-10-18, 11:11 PM)princelovelorn كتب : إذا كنت تريد عدم السماح بترك الtextbox  او combobox فارغين نصيا 
بغض النظر عن نوع النص 

ممكن تستخدم  الطريقة التالية
كود :
       Dim errorpro As New ErrorProvider
       If Trim(Textbox1.Text) = "" Then
           errorpro.SetError(Textbox1, "يرجى إدخال نص")
           MsgBox("يرجى إدخال نص")
           Exit Sub
       ElseIf Trim(Textbox2.Text) = "" Then
           errorpro.SetError(Textbox2, "يرجى إدخال نص")
           MsgBox("يرجى إدخال نص")
           Exit Sub
       ElseIf Trim(Combobox1.Text) = "" Then
           errorpro.SetError(Combobox1, "يرجى إدخال نص")
           MsgBox("يرجى إدخال نص")
           Exit Sub
       End If
جزاك الله خيراً أخي العزيز [b][b]princelovelorn[/b]، ما قصرت، هناك نقطة أُخرى إن كنت تعلمها فالحمد لله وزادك الله علماً، بعد تحسين الكود وجدت الأفضل استخدام أداة ErrorProvider عوضًا عن المُتغير لأن أيقونة الخطأ التي تظهر عندما تُصبح القيمة فارغة لن تختفي إلا باستخدام الأداة.[/b]

أمين وإياك أخي الفاضل
وهذا تقصير مني للأسف لم أخبرك بها 
فلكي تختفى أيقونة الخطأ يجب ( وضع الكود التالي في حدث textchanged (

كود :
   errorpro.SetError(TextBox1, "")
       errorpro.SetError(TextBox2, "")
       errorpro.SetError(Combobox1, "")

 
وهو أعطاء قيمة فارغة للأداة وبالتالي تلقائيا لن تظهر بعد كتابة حرف واحد 
ويجب وضع الكود  في حدث textchanged لكل كنترول تستخدم معه اداة errorprovider
أو ممكن تعمل sub  للتنظيف  لتسهيل الأمور عليك
وسواء أستخدمت الأداة أو المتغير  فستنجح بإذن الله معك
وأيضا نصيحة من أخيك أرجو أن تتقبلها إن وقعت بخطأ ما في البرمجة في كود معين  حاول تضعه في try catch  لكي تصيد الخطأ وتحدد مكانه بالظبط

لم تُقصر أخي الحبيب [b][b]princelovelorn ، بل تركت لي مجالاً للاجتهاد والتفكير وليس الاعتماد على النسخ واللصق، فجزاك الله خيراً، نصيحتك على العين والرأس وسأعمل بها دومًا إن شاء الله، الله يرضى عنك ويبارك في عُمرك وييسر لك كل أمر ويسترنا وإياك في الدُنيا والآخرة.[/b][/b]
عن أبي هريرة - رضي الله عنه - قال: قال رسول الله - صلى الله عليه وسلم -: ((كلمتان خفيفتان على اللسان، ثقيلتان في الميزان، حبيبتان إلى الرحمن: سبحان الله وبحمده، سبحان الله العظيم))؛ متفق عليه.

الرد }}}
تم الشكر بواسطة: princelovelorn
#25
أمين وإياك أخي الفاضل
لا إله إلا الله وحده لا شريك له له الملك وله الحمد وهو على كل شئ قدير
سبحان الله وبحمده سبحان الله العظيم
سبحان الله والحمد لله ولا إله إلا الله والله أكبر ولا حول ولا قوة إلا بالله العلى العظيم
رب أغفر لي 

الرد }}}
تم الشكر بواسطة:
#26
(04-10-18, 08:17 PM)ay.alhaj كتب : هذا مثال للكود قمت بتطبيقه وهو يعمل 

PHP كود :
       If ComboBox1.SelectedIndex = -1 Then
            MsgBox
("no data")
 
       Else
            MsgBox
("okey")

 
       End If 


هذه الصورة في حال الكومبو بوكس فاضي شوف الرسالة 







هذه الصورة في حال الكومبو بوكس يوجد فيه اختيار






جزاك الله خيراً، أنا مثلك تمامًا، لكن رُبما والله أعلم أن السبب قد يرجع لتداخل الأكواد، رُغم أني وضعت الكود الذي أرفقته له أخي الكريم في نفس المكان الذي وضعت فيه كود الإخوة الكِرام، عمومًا لك جزيل الشكر، والله يرضى عنك ويرزقك العلم النافع والعمل الصالح ويرزقك حُسن الخاتمة.
عن أبي هريرة - رضي الله عنه - قال: قال رسول الله - صلى الله عليه وسلم -: ((كلمتان خفيفتان على اللسان، ثقيلتان في الميزان، حبيبتان إلى الرحمن: سبحان الله وبحمده، سبحان الله العظيم))؛ متفق عليه.

الرد }}}
تم الشكر بواسطة: princelovelorn , elgokr
#27
أمين وإياك أخي الفاضل
الحمد لله والشكر لله
أهم شئ الكود يعمل تمام والمشكلة الرئيسية تم حلها
لا إله إلا الله وحده لا شريك له له الملك وله الحمد وهو على كل شئ قدير
سبحان الله وبحمده سبحان الله العظيم
سبحان الله والحمد لله ولا إله إلا الله والله أكبر ولا حول ولا قوة إلا بالله العلى العظيم
رب أغفر لي 

الرد }}}
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف اتعامل مع databindings و ال combobox سلام و محبه 2 52 24-03-24, 05:00 AM
آخر رد: سلام و محبه
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 194 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  [VB.NET] استدعاء بيانات في TextBox بناء على combobox loay775 2 264 18-01-24, 05:07 PM
آخر رد: loay775
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
Heart [C#.NET] حول خطأ في فرز عامود التاريخ عندما تكون إحدى الخانات فارغة بلال بلال 3 338 16-11-23, 12:02 AM
آخر رد: بلال بلال
  كود لعدم تكرار الرقم في قاعدة البيانات yossefsaad370 1 340 28-10-23, 10:29 AM
آخر رد: atefkhalf2004

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم