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

استخدمت الكود التالي لعدم السماح بترك الصندوق النصي فارغ 
PHP كود :
If String.IsNullOrWhiteSpace(TextBox1.TextThen
           MessageBox
.Show("Null Date")
 
      Else
 
  
       End 
If 

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

الرد
تم الشكر بواسطة:
#2
جرب هذا

أضف Trim لتصبح TextBox1.Text.Trim

وإذا كنت تريد اختبار محتوى الصندوق النصي إن كان يحتوي تاريخ

جرب هذا
كود :
If Not IsDate(TextBox1.Text.Trim) Then
    MessageBox.Show("Null Date")
Else

End If
الرد
تم الشكر بواسطة: Hazem1
#3
(03-10-18, 09:49 PM)rnmr كتب : جرب هذا

أضف Trim لتصبح TextBox1.Text.Trim

وإذا كنت تريد اختبار محتوى الصندوق النصي إن كان يحتوي تاريخ

جرب هذا
كود :
If Not IsDate(TextBox1.Text.Trim) Then
   MessageBox.Show("Null Date")
Else

End If


ربما لم أقم بتوضيح السؤال بشكل كاف، لذا سأقوم بالتوضيح بشكل أكبر أخي الكريم rnmr ، استخدمت هذا الكود في عدم السماح بترك حقل ال textbox فارغ:

PHP كود :
If String.IsNullOrWhiteSpace(TextBox1.TextThen
           MessageBox
.Show("Null Date")
 
      Else
 
  
       End 
If 



، فنفس الكود لا يعمل مع الأداة Combobox ، لذا فسألت عن الكود الذي يُستخدم بحيث لو تركت حقل ال Combobox فارغ تظهر رسالة مثلاً ( Combobox is Null )


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

الرد
تم الشكر بواسطة:
#4
إذا كنت تريد عدم السماح بترك ال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
لا إله إلا الله وحده لا شريك له له الملك وله الحمد وهو على كل شئ قدير
سبحان الله وبحمده سبحان الله العظيم
سبحان الله والحمد لله ولا إله إلا الله والله أكبر ولا حول ولا قوة إلا بالله العلى العظيم
رب أغفر لي 

الرد
تم الشكر بواسطة: rnmr , Hazem1 , Hazem1
#5
السلام عليكم اخي hazem1
في هذا الكود لن ينفذ البرنامج الاكواد التي ستكتبها بدل الرسالة
الا اذا قمت بادخال قيمة في الـ Combobox  وسيظل يعيدك الى الكومبو بوكس حتى تضع له قيمة
كود :
If ComboBox1.Text.Trim = "" Then
           ComboBox1.Focus()
           Exit Sub
       Else
           MessageBox.Show("الان يمكنك المتابعة")
       End If
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: Hazem1
#6
(04-10-18, 12:16 AM)ابراهيم ايبو كتب :
السلام عليكم اخي hazem1
في هذا الكود لن ينفذ البرنامج الاكواد التي ستكتبها بدل الرسالة
الا اذا قمت بادخال قيمة في الـ Combobox  وسيظل يعيدك الى الكومبو بوكس حتى تضع له قيمة
كود :
If ComboBox1.Text.Trim = "" Then
           ComboBox1.Focus()
           Exit Sub
       Else
           MessageBox.Show("الان يمكنك المتابعة")
       End If

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


(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

جزاك الله خيراً ، يظهر الخطأ لكن هُناك خطأ عندي والله المُستعان، مشكورين يا إخوة على مجهوداتكم الطيبة.


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

الرد
تم الشكر بواسطة:
#7
اخي ضع الحملة الشرطية في اول الكود 
قبل اي شيء وضع اكوادك بدل الرسالة
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: Hazem1 , Hazem1
#8
(04-10-18, 12:37 AM)ابراهيم ايبو كتب :
اخي ضع الحملة الشرطية في اول الكود 
قبل اي شيء وضع اكوادك بدل الرسالة

وضعتها أخي الحبيب ، الغريب جداً إن سواء أدخل قيمة أم لم أدخل قيمة تظهر الرسالة، إضافة إلى نقطة أُخرى أنه بعد ظهور الرسالة تظهر رسالة الحفظ مُباشرة، أشعر أنني اخطأت في ترتيب المكان المُناسب للكود، لذا سأرفق لحضرتك الكود ولا حول ولا قوة إلا بالله.

PHP كود :
Private Sub Button3_Click_1(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button3.Click

        If ComboBox1
.Text.Trim "" Then
            ComboBox1
.Focus()
 
           Exit Sub
        Else
            MessageBox
.Show("Please Insert Value")
 
       End If


 
       DataGridView1.EndEdit()
 
       Table15BindingSource.EndEdit()
 
       Table15TableAdapter.Update(A18DataSet.Table15)
 
      
       
        Select 
Case MsgBox("Data saved successfully, Add New Data?"MsgBoxStyle.YesNo":::::::::: Save ::::::::::")
 
           Case MsgBoxResult.Yes
                TextBox1
.Select()
 
               Table15BindingSource.AddNew()

 
           Case MsgBoxResult.No
                TextBox3
.Text ""
 
               TextBox4.Text ""
 
               TextBox5.Text ""
 
               ComboBox3.Text ""
 
               Me.Table15TableAdapter.Fill(Me.A18DataSet.Table15)
 
               With DataGridView1
                    
.ClearSelection()
 
                   .ReadOnly True
                    
.MultiSelect False
                    TextBox3
.Select()

 
               End With
        End Select
    End Sub 
عن أبي هريرة - رضي الله عنه - قال: قال رسول الله - صلى الله عليه وسلم -: ((كلمتان خفيفتان على اللسان، ثقيلتان في الميزان، حبيبتان إلى الرحمن: سبحان الله وبحمده، سبحان الله العظيم))؛ متفق عليه.

الرد
تم الشكر بواسطة:
#9
جرب هذا

كود :
   Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

       If ComboBox1.Text.Trim = "" Then
           MessageBox.Show("Please Insert Value")
           Return
       End If
الرد
تم الشكر بواسطة: Hazem1
#10
(04-10-18, 01:02 AM)rnmr كتب : جرب هذا

كود :
   Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

       If ComboBox1.Text.Trim = "" Then
           MessageBox.Show("Please Insert Value")
           Return
       End If

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] ممكن طريقة تشفير اداة لعدم سرقتها jam3h 3 197 14-10-20, 11:20 AM
آخر رد: jam3h
  أريد كود البحث بال combobox Hazem Kamel 3 234 13-10-20, 01:17 AM
آخر رد: Hazem Kamel
  [VB.NET] هل تنصحوني بترك SqlServer و التوجه ل MySql sniperjawadino 4 185 01-10-20, 03:38 PM
آخر رد: sniperjawadino
  من فضلكم نوع الخطأ في الكود sofiane-phy 4 224 26-09-20, 08:57 PM
آخر رد: sofiane-phy
Rainbow [كود] ماهو الخطا في الكود الموضح لكم محمد مسافر 2 202 23-09-20, 01:09 AM
آخر رد: محمد مسافر
  عندي مشكلة بخصوص الكود هدا The program '[13020] MainProj.exe' has exited with code 0 ٍOfelas 1 177 21-09-20, 12:27 AM
آخر رد: Anas Mahmoud
  التعديل على الكود للتخلص من مشكلة البطىء حيث عدد السجلات كبير momani33 0 216 09-09-20, 01:33 PM
آخر رد: momani33
  ماهو الخطاء في هذا الكود عمور2016 1 291 06-09-20, 06:33 PM
آخر رد: حريف برمجة
  [سؤال] طرب الويندوز ومحتاج اجداد الكود سحاب روابط قائيمة تشغيل من اليتيوب Ali Edal 11 1,124 05-09-20, 03:36 PM
آخر رد: معاند الحظ
  [سؤال] خطأ في التنفيذ الكود بعد فلترة dataGridView محمد العامر 2 301 20-08-20, 01:38 PM
آخر رد: محمد العامر

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


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