تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] طلب : رسالة أن العنصر مكرر بالليست بوكس ولا يمكن إضافته مرة أخرى
#1
السلام عليكم ورحمة الله وبركاته

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



أريد كود

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

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

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد
تم الشكر بواسطة:
#2
وعليكم السلام  ورحمة الله وبركاته ..

هذا الكود

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

شكرا  جزيلا
 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] اختيار اسم الزبون من الكومبو بوكس لغرض طباعة تقريره وادي العوضي 4 83 15-01-22, 06:13 PM
آخر رد: وادي العوضي
  [vb6.0] أريد كود : للتأكد من أن البرنامج يعمل بالفعل ولا يتشغيل البرنامج مرة أخرى بنفس الوقت hamada salah90 6 184 28-12-21, 09:08 PM
آخر رد: hamada salah90
Question كيف يمكن تطوير هذا الكود نامل المساعدة ؟؟ Microformt 1 246 22-11-21, 07:51 PM
آخر رد: اسلام الكبابى
Wink هل يمكن تحديث بيانات من استعلام لجدول مصمم هاوي 10 555 04-11-21, 01:33 PM
آخر رد: مصمم هاوي
Question [vb6.0] هل يمكن تغير نوع خط Label من خلال الكود وكيف ذلك ؟؟ Microformt 2 232 10-10-21, 08:58 AM
آخر رد: Microformt
Question [vb6.0] هل يمكن نسخ ما في Text عن طريق زر الامر ؟؟ Microformt 2 313 02-10-21, 02:39 PM
آخر رد: Microformt
Question [vb6.0] كيف اجعل المستخدم التعديل على الأرقام في text1 فقط ولا يمكن مسحها ؟ Microformt 5 739 30-08-21, 11:54 PM
آخر رد: اسلام الكبابى
  ربط تكست بوكس بالتاريخ الهجري الموجود في صفحة انترنت؟ Alhootti1 5 705 30-08-21, 11:18 PM
آخر رد: Alhootti1
  كيف يمكن نقل بيانات من جدول في قاعدة بيانات الى قاعدة بيانات مثلها تماما gonm64 2 593 11-06-21, 04:55 PM
آخر رد: gonm64
  [vb6.0] كيف يمكن إضهار الصوره تحت Text عند النقر على زر الامر ؟؟ Microformt 2 553 08-06-21, 04:42 PM
آخر رد: Microformt

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم