[ابو العلاء]

السلام عليكم 

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

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

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

[dalas]

dim a=0
for eatch c in me.controls
if c.text="ahmad" then a+=1
next
label1.text=a

[ابو العلاء]

(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

لم تفلح معي اخي الكريم

[dalas]

ليه
ايه اللي حصل
انسخ الاسم المطلوب والصقه بدل ahmad اللي في الكود وجرب

[ابو العلاء]

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

يظهر هكذا

[dalas]

معلش اخطات في كلمه في الكود
عدل كلمة eatch الى each

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم 
قد لايروق لك وضع مجموعة التكست بوكس في 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

[ابو العلاء]

(11-09-21, 12:09 AM)dalas كتب : معلش اخطات في كلمه في الكود
عدل كلمة eatch الى each

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

بس ممكن سؤال اذا كانت التكست بوكس داخل داخل اداة TabControl1
   

[dalas]

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

[ابو العلاء]

اشكركم على المساعدة ولكن لم تفلح طريقة اخي ابراهيم
   

---