تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
معادلة عد كلمة معينة داخل اكثر من تكست بوكس
#1
السلام عليكم 

 لدي اكثر من تكست بوكس تحتوي على اسماء 

هل يوجد معادلة استطيع من خلالها عد تكرار  اسم معين  في التكس بوكس 

صورة الفورم للتوضيح

الرد }}}
تم الشكر بواسطة: ابو انس
#2
dim a=0
for eatch c in me.controls
if c.text="ahmad" then a+=1
next
label1.text=a
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , ابو انس , ابو انس
#3
(10-09-21, 11:37 PM)dalas كتب : dim a=0
for eatch c in me.controls
if c.text="ahmad" then a+=1
next
label1.text=a

لم تفلح معي اخي الكريم
الرد }}}
تم الشكر بواسطة: ابو انس
#4
ليه
ايه اللي حصل
انسخ الاسم المطلوب والصقه بدل ahmad اللي في الكود وجرب
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , ابو انس
#5
[attachment=26990 كتب :dalas pid='176719' dateline='1631303745']     ليه
ايه اللي حصل
انسخ الاسم المطلوب والصقه بدل ahmad اللي في الكود وجرب

يظهر هكذا
الرد }}}
تم الشكر بواسطة: dalas , ابراهيم ايبو , ابو انس
#6
معلش اخطات في كلمه في الكود
عدل كلمة eatch الى each
الرد }}}
#7
السلام عليكم ورحمة الله وبركاته
اخي الكريم 
قد لايروق لك وضع مجموعة التكست بوكس في TabPage ربما تضعها على الفورم مباشرة لذلك انشئ مصفوفة باسماء التكست بوكس
اليك الكود
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim Search As String
       Dim AA As Integer = 0
     
       Search = Txt_Find.Text.Trim()
       ' مصفوفة التكست بوكس المراد البحث فيها
       Dim CC() As TextBox = {TextBox1, TextBox2, TextBox3, TextBox4}

       For i As Integer = 0 To CC.Length - 1
           If CC(i).Text.Contains(Search) Then
               AA += 1
           End If
       Next
       MsgBox(AA)
   End Sub
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: dalas , talal_ameer , ابو انس , ابو انس , kebboud , kebboud
#8
(11-09-21, 12:09 AM)dalas كتب : معلش اخطات في كلمه في الكود
عدل كلمة eatch الى each

كل الشكر اخي ... نجحت معي 

بس ممكن سؤال اذا كانت التكست بوكس داخل داخل اداة TabControl1
   
الرد }}}
تم الشكر بواسطة: dalas , ابو انس
#9
ممكن تستخدم طريقه اخي ابراهيم فهي تغنيك فين ما كانت التكست بوكس
في الكود اللي مني
استبدل كلمة me باسم tabpage اللي فيه مجموعة التكست بوكس
الرد }}}
تم الشكر بواسطة: ابو انس
#10
اشكركم على المساعدة ولكن لم تفلح طريقة اخي ابراهيم
   

الرد }}}
تم الشكر بواسطة: dalas , ابراهيم ايبو , ابو انس


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تظليل التكست بوكس عند وضع المؤشر مصمم هاوي 2 144 02-03-24, 08:48 AM
آخر رد: مصمم هاوي
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 441 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 223 25-02-24, 11:26 PM
آخر رد: heem1986
  [سؤال] كود اظهار رساله في حال وجود الرقم في اكثر من عمود مبرمج صغير 1 6 402 09-01-24, 01:41 AM
آخر رد: Taha Okla
  الحذف للسجل بشروط معينة محمد خيري 4 361 05-01-24, 04:46 AM
آخر رد: محمد خيري
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 305 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  حماية عمود داخل ورقة الاكسل العيدروس 3 190 05-01-24, 12:21 AM
آخر رد: HALIM ELEULMA
  إدخال معادلة رياضية في textBox وبرمجة حلها؟ الخير19 3 299 03-01-24, 04:19 PM
آخر رد: الخير19
  كيف ارسل مجموع 3 تكست بوكس إلى واحد بالترتيب ؟ أبووسم 3 330 18-12-23, 05:17 PM
آخر رد: أبووسم
  طريقة إسناد اكثر من جدول للكريستال ريبورت Adel27213 2 353 25-11-23, 11:51 PM
آخر رد: Adel27213

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


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