السلام عليكم
انا ابغا كود يعمل الاتي :
انا عندي تكست اسمه Text1
و عندي لست اسمها List1
و عندي زر اسمه Ck
ابغا اذا ضغطت على الزر يروح يشوف الكتابة الموجودة في التكست بوكس ولا لا
اذا موجودة يقول لي موجودة واذا لم يجدها يقول لم توجد
مثلا
التكست بوكس مكتوب فيه : احمد
و اللست مكتوب فيها : احمد
محمد
يوسف
سلطان
خالد
اذا ضغط على الزر يقول له موجود
هذا ما اريده و شكرا
في يوم من الايام قال Matrixyb
" فكر في طريقة حماية لبرامجك و فكر اذا انت واجهتها كيف ممكن تكسرها اذا لقيت طريقة لكسرها دور طريقة حماية اخرى "
Private Sub Command1_Click() For i = 0 To List1.ListCount - 1 List1.ListIndex = i If List1.Text = Text1 Then MsgBox "موجود": Exit Sub Next MsgBox "غير موجود" End Sub
تم تعديل هذه المشاركة بواسطة عبد العزيز اليوسفي في 6 مارس 2007 في 01:43
الكود ده أسرع /index.ph...st&p=576180
تم تعديل هذه المشاركة بواسطة msayed2004 في 6 مارس 2007 في 02:16
إقرأ معى:
----
المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا
ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).
المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)
مشكور لكم جميعا
لكن يا اخي عبدالعزيز
يقول لي يوجد خطا عند الضغط على الزر
و يروح ياشر على حرف i باللون الاصفر
ما المشكلة
في يوم من الايام قال Matrixyb
" فكر في طريقة حماية لبرامجك و فكر اذا انت واجهتها كيف ممكن تكسرها اذا لقيت طريقة لكسرها دور طريقة حماية اخرى "
صرح عنه في أول الكود
Dim i As Integer
هذا الموضوع مغلق.
