تقييم الموضوع :
  • 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 , ابراهيم ايبو , ابو انس


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ضرب أعمدة معينة في صف فى الداتاجريد فيو مع أعمدة في الصف اللى قبلها alessam4pro 3 150 19-06-22, 12:05 PM
آخر رد: alessam4pro
  [سؤال] طلب مساعدة في كود قراءة النص كلمة كلمة waelalmsry75 3 362 07-06-22, 09:00 AM
آخر رد: asmarsou
  [سؤال] وضع كل سجل داخل مربع بصفحة التقرير dr.programming 1 164 06-06-22, 02:45 PM
آخر رد: رمضان272
  سؤال في الانتقال الى خلية معينة في داتا قرايد فيو strongriseman 2 226 05-06-22, 07:54 PM
آخر رد: strongriseman
Star الاستعلام بعلامة = بدلا من كلمة Like أبو خالد الشكري 5 250 03-06-22, 07:48 PM
آخر رد: asemshahen5
  جلب الفورم داخل المشروع jemyxxo 2 226 30-05-22, 03:14 AM
آخر رد: ابو انس
  نقل نص البوتن إلى التيكست بوكس حماده ممدوح البحيرى 3 262 24-05-22, 02:51 AM
آخر رد: Codack
Question [سؤال] تعبئة TreeView مع جود اكثر من عملية بحث ادخل جدوالين alims 1 1,185 22-05-22, 07:51 PM
آخر رد: samo123456
  [سؤال] عمل جمع لقيمة معينة في الكريستال ريبورت عاشق الرسول 1 414 18-04-22, 04:58 PM
آخر رد: عاشق الرسول
  تفريق الحروف فى التكست بوكس saidhamed 3 467 06-04-22, 06:45 PM
آخر رد: saidhamed

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


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