منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : طلب : رسالة أن العنصر مكرر بالليست بوكس ولا يمكن إضافته مرة أخرى
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته

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



أريد كود

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

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

هذا الكود

كود :
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
(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

شكرا  جزيلا