+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ما هو الكود المُستخدم لعدم السماح بترك ال Combobox فارغة (/showthread.php?tid=26777)
ما هو الكود المُستخدم لعدم السماح بترك ال Combobox فارغة - Hazem1 - 03-10-18
بسم الله الرحمن الرحيم
استخدمت الكود التالي لعدم السماح بترك الصندوق النصي فارغ
PHP كود :
If String.IsNullOrWhiteSpace(TextBox1.Text) Then
MessageBox.Show("Null Date")
Else
End If
وحاولت استخدام نفس الكود مع أداة ال Combobox ولكن لم ينجح، فما هو الكود الصحيح؟ بارك الله فيكم.
RE: ما هو الكود المُستخدم لعدم السماح بترك ال Combobox فارغة - rnmr - 03-10-18
جرب هذا
أضف Trim لتصبح TextBox1.Text.Trim
وإذا كنت تريد اختبار محتوى الصندوق النصي إن كان يحتوي تاريخ
جرب هذا
كود :
If Not IsDate(TextBox1.Text.Trim) Then
MessageBox.Show("Null Date")
Else
End IfRE: ما هو الكود المُستخدم لعدم السماح بترك ال Combobox فارغة - Hazem1 - 03-10-18
(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.Text) Then
MessageBox.Show("Null Date")
Else
End If
، فنفس الكود لا يعمل مع الأداة Combobox ، لذا فسألت عن الكود الذي يُستخدم بحيث لو تركت حقل ال Combobox فارغ تظهر رسالة مثلاً ( Combobox is Null )
RE: ما هو الكود المُستخدم لعدم السماح بترك ال Combobox فارغة - princelovelorn - 03-10-18
إذا كنت تريد عدم السماح بترك ال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 IfRE: ما هو الكود المُستخدم لعدم السماح بترك ال Combobox فارغة - ابراهيم ايبو - 04-10-18
السلام عليكم اخي hazem1
في هذا الكود لن ينفذ البرنامج الاكواد التي ستكتبها بدل الرسالة
الا اذا قمت بادخال قيمة في الـ Combobox وسيظل يعيدك الى الكومبو بوكس حتى تضع له قيمة
كود :
If ComboBox1.Text.Trim = "" Then
ComboBox1.Focus()
Exit Sub
Else
MessageBox.Show("الان يمكنك المتابعة")
End IfRE: ما هو الكود المُستخدم لعدم السماح بترك ال Combobox فارغة - Hazem1 - 04-10-18
(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
جزاك الله خيراً ، يظهر الخطأ لكن هُناك خطأ عندي والله المُستعان، مشكورين يا إخوة على مجهوداتكم الطيبة.
RE: ما هو الكود المُستخدم لعدم السماح بترك ال Combobox فارغة - ابراهيم ايبو - 04-10-18
اخي ضع الحملة الشرطية في اول الكود
قبل اي شيء وضع اكوادك بدل الرسالة
RE: ما هو الكود المُستخدم لعدم السماح بترك ال Combobox فارغة - Hazem1 - 04-10-18
(04-10-18, 12:37 AM)ابراهيم ايبو كتب :اخي ضع الحملة الشرطية في اول الكودقبل اي شيء وضع اكوادك بدل الرسالة
وضعتها أخي الحبيب ، الغريب جداً إن سواء أدخل قيمة أم لم أدخل قيمة تظهر الرسالة، إضافة إلى نقطة أُخرى أنه بعد ظهور الرسالة تظهر رسالة الحفظ مُباشرة، أشعر أنني اخطأت في ترتيب المكان المُناسب للكود، لذا سأرفق لحضرتك الكود ولا حول ولا قوة إلا بالله.
PHP كود :
Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 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
RE: ما هو الكود المُستخدم لعدم السماح بترك ال Combobox فارغة - rnmr - 04-10-18
جرب هذا
كود :
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 IfRE: ما هو الكود المُستخدم لعدم السماح بترك ال Combobox فارغة - Hazem1 - 04-10-18
(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 ، لكن سُبحان الله توقف عن حفظ البيانات تمامًا.