[hamada salah90]

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

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

أريد كود

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

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

[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

[hamada salah90]

(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

شكرا  جزيلا