+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
RE: ما هو الكود المُستخدم لعدم السماح بترك ال Combobox فارغة - ابراهيم ايبو - 04-10-18
اخي حازم الكود هكذا بعد التعدبل
كود :
If ComboBox1.Text.Trim = "" Then
ComboBox1.Focus()
Exit Sub
Else
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 If
RE: ما هو الكود المُستخدم لعدم السماح بترك ال Combobox فارغة - Hazem1 - 04-10-18
(04-10-18, 01:14 AM)ابراهيم ايبو كتب : اخي حازم الكود هكذا بعد التعدبلالله المُستعان، أخي تستطيع أن تستريح وغداً أحاول مُراجعة الكود إن شاء الله، ما أُريد أن أشق عليك، الآن تظهر رسالة الحفظ وإن كانت القيمة فارغة.
كود :
If ComboBox1.Text.Trim = "" Then
ComboBox1.Focus()
Exit Sub
Else
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 If
RE: ما هو الكود المُستخدم لعدم السماح بترك ال Combobox فارغة - ابراهيم ايبو - 04-10-18
أخي ختى تتأكد من الكود ضع اي كود صحيح وشغال مابين else و end if
وبذلك تعرف اين تكمن المشكلة اعانك الله
RE: ما هو الكود المُستخدم لعدم السماح بترك ال Combobox فارغة - Hazem1 - 04-10-18
(04-10-18, 01:28 AM)ابراهيم ايبو كتب :أخي ختى تتأكد من الكود ضع اي كود صحيح وشغال مابين else و end ifوبذلك تعرف اين تكمن المشكلة اعانك الله
والله يا الحبيب ضبط معي في جزئية الصندوق النصي لكن سُبحان الله لست أدري ماذا جرى بعد ذلك، سأحاول التجربة إن شاء الله، والله سُبحانه وتعالى قادر أن ييسر الأمور، جزاك الله خيراً بصدق لم تُقصر بشيء، الله يرضى عنك وييسر لك كل أمر.
RE: ما هو الكود المُستخدم لعدم السماح بترك ال Combobox فارغة - Hazem1 - 04-10-18
(03-10-18, 11:11 PM)princelovelorn كتب : إذا كنت تريد عدم السماح بترك الtextbox او combobox فارغين نصياجزاك الله خيراً أخي العزيز [b][b]princelovelorn[/b]، ما قصرت، هناك نقطة أُخرى إن كنت تعلمها فالحمد لله وزادك الله علماً، بعد تحسين الكود وجدت الأفضل استخدام أداة ErrorProvider عوضًا عن المُتغير لأن أيقونة الخطأ التي تظهر عندما تُصبح القيمة فارغة لن تختفي إلا باستخدام الأداة.[/b]
بغض النظر عن نوع النص
ممكن تستخدم الطريقة التالية
كود :
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 فارغة - ay.alhaj - 04-10-18
بالنسبة للكومبو بوكس بتقدر تحط جملة شرطية كالتالي
If combobox.selectedindex = - 1 then
Msgbox("لا يمكن ترك الكومبو بوكس فارغ")
Exit sub
Else
هنا كود الحفظ او الكود الذي تريد تنفيذه
End if
RE: ما هو الكود المُستخدم لعدم السماح بترك ال Combobox فارغة - Hazem1 - 04-10-18
(04-10-18, 03:28 PM)ay.alhaj كتب : بالنسبة للكومبو بوكس بتقدر تحط جملة شرطية كالتالي
If combobox.selectedindex = - 1 then
Msgbox("لا يمكن ترك الكومبو بوكس فارغ")
Exit sub
Else
هنا كود الحفظ او الكود الذي تريد تنفيذه
End if
أخي الكريم ay.alhaj لم يعمل الكود وتم الحفظ بالقيمة الفارغة، على كل حال جزاك الله خيراً على محاولتك الطيبة ، لا تقلق أخي الفاضل المُشكلة تم حلها وكتبت الحل في المُشاركة السابقة، الشكر لله سُبحانه وتعالى ثُم للإخوة الكِرام [b]princelovelorn ، [b][b]rnmr ، [b][b]ابراهيم ايبو . [/b][/b][/b][/b][/b]
RE: ما هو الكود المُستخدم لعدم السماح بترك ال Combobox فارغة - ay.alhaj - 04-10-18
مستحيل ما يعمل انا بشتغل عليه وشغال معي
عادي ودائما استخدمه
ممكن تصورلي الكود كيف كتبته
مكان combobox ضع اسم الكومبو بوكس الذي عليه الشرط
RE: ما هو الكود المُستخدم لعدم السماح بترك ال Combobox فارغة - Hazem1 - 04-10-18
(04-10-18, 05:03 PM)ay.alhaj كتب : مستحيل ما يعمل انا بشتغل عليه وشغال معي
عادي ودائما استخدمه
ممكن تصورلي الكود كيف كتبته
مكان combobox ضع اسم الكومبو بوكس الذي عليه الشرط
رُغم أن المُشكلة تم حلها لكن سأرفق لحضرتك ما أردت يا أخي الفاضل، كي تتأكد أن الكود لم يعمل معي رُغم أني كتبته بشكلٍ صحيح
PHP كود :
Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If ComboBox2.SelectedIndex = -1 Then
MsgBox("Null Value")
Exit Sub
Else
'Save Code
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 If
End Sub
الصورة المُرفقة توضح أنه بعدما قُمت بالضغظ على زر ( حفظ ) ظهرت رسالة الحفظ رُغم أن ال Combobox فارغ ، وفقك الله أخي الكريم لما يحبه ويرضاه.
RE: ما هو الكود المُستخدم لعدم السماح بترك ال Combobox فارغة - asemshahen5 - 04-10-18
If ComboBox2.Text = String.Empty Then
MsgBox("Null Value")
Exit Sub
Else
MsgBox("Null Value")
Exit Sub
Else
End If