+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تعديل هذا الكود (/showthread.php?tid=7373)
تعديل هذا الكود - مبتدئ - 14-12-12
ComboBox1.Items.Remove(ComboBox1.SelectedItem)
اريد بعد مسح item يعلم على Item لى وحده
و اريد
عند اضافت item جديده BnComboBox1.Items.Add(TextBox1.Text)
لو item موجوده مسبقآ فى ComboBox يظهر رساله بى اسم الايتم مثل هذا ... موجود مسبقآ
تعديل هذا الكود - memoelgm - 15-12-12
كود الاضافه
PHP كود :
If ComboBox1.Items.Contains(TextBox1.Text) Then
MsgBox("This item already exist")
Else
ComboBox1.Items.Add(TextBox1.Text)
End If
كود الحذف
PHP كود :
If ComboBox1.SelectedItem <> "" Then
ComboBox1.Items.Remove(ComboBox1.SelectedItem)
End If
On Error Resume Next
ComboBox1.SelectedIndex = 0
ارجو انى اكون افدتك و اى استفسار اتركه فى الموضوع
تعديل هذا الكود - مبتدئ - 15-12-12
memoelgm كتب :كود الاضافهجزاك الله كل خير
PHP كود :
If ComboBox1.Items.Contains(TextBox1.Text) Then
MsgBox("This item already exist")
Else
ComboBox1.Items.Add(TextBox1.Text)
End If
كود الحذف
PHP كود :
If ComboBox1.SelectedItem <> "" Then
ComboBox1.Items.Remove(ComboBox1.SelectedItem)
End If
On Error Resume Next
ComboBox1.SelectedIndex = 0
ارجو انى اكون افدتك و اى استفسار اتركه فى الموضوع