منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] طلب : رسالة أن العنصر مكرر بالليست بوكس ولا يمكن إضافته مرة أخرى - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] طلب : رسالة أن العنصر مكرر بالليست بوكس ولا يمكن إضافته مرة أخرى (/showthread.php?tid=40163)

طلب : رسالة أن العنصر مكرر بالليست بوكس ولا يمكن إضافته مرة أخرى - hamada salah90 - 04-12-21

السلام عليكم ورحمة الله وبركاته

لو لدينا مثال به ليست بوكس به اربع عناصر هي :"محمد"    و      "أحمد"      و       "محسن"



أريد كود

عند إضافة      "محمد"   لليست بوكس   عن طريق  addnew.

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


RE: طلب : رسالة أن العنصر مكرر بالليست بوكس ولا يمكن إضافته مرة أخرى - Taha Okla - 04-12-21

وعليكم السلام  ورحمة الله وبركاته ..

هذا الكود

كود :
If Trim$(Text1.Text = "") = "" Then Exit Sub

For i = 0 To List1.ListCount - 1
   If List1.List(i) = Trim(Text1.Text) Then
       MsgBox "åÐÇ ÇáÇÓã ãæÌæÏ ãÓÈÞÇð", vbExclamation, "ÊäÈíå"
       Exit Sub
   End If
Next i
List1.AddItem Trim(Text1.Text)
Text1.Text = ""
Text1.SetFocus


RE: طلب : رسالة أن العنصر مكرر بالليست بوكس ولا يمكن إضافته مرة أخرى - hamada salah90 - 05-12-21

(04-12-21, 11:29 PM)Taha Okla كتب : وعليكم السلام  ورحمة الله وبركاته ..

هذا الكود

كود :
If Trim$(Text1.Text = "") = "" Then Exit Sub

For i = 0 To List1.ListCount - 1
   If List1.List(i) = Trim(Text1.Text) Then
       MsgBox "åÐÇ ÇáÇÓã ãæÌæÏ ãÓÈÞÇð", vbExclamation, "ÊäÈíå"
       Exit Sub
   End If
Next i
List1.AddItem Trim(Text1.Text)
Text1.Text = ""
Text1.SetFocus

شكرا  جزيلا