تقييم الموضوع :
  • 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 , ابو انس , ابو انس
#8
(11-09-21, 12:09 AM)dalas كتب : معلش اخطات في كلمه في الكود
عدل كلمة eatch الى each

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود انتقال الماوس تلقائيا من التيكست بوكس ابو نور الهدى 6 194 16-09-21, 12:00 AM
آخر رد: ابو نور الهدى
Exclamation [سؤال] احتاج مساعدة في حفظ ليست بوكس الى تكست malek369 0 158 24-08-21, 09:12 AM
آخر رد: malek369
  [سؤال] برنامج يبحث بالعديد من النصوص داخل ملف واحد maio_do 1 163 22-08-21, 01:49 PM
آخر رد: asemshahen5
  حذف صفوف في جدول داخل قاعدة بيانات سيكوال سيرف momani33 5 258 21-08-21, 02:14 PM
آخر رد: momani33
  كيفية جلب بيانات جدول داخل موقع إلى الداتاجريدفيو باستخدام مكتبة cefsharp bahnay0 0 208 12-08-21, 01:49 AM
آخر رد: bahnay0
  معادلة رياضية ابو انس 4 398 07-08-21, 04:29 PM
آخر رد: ابو انس
  ممكن حل لمشكلة التعديل داخل DGv Ofealas 11 596 27-07-21, 09:32 PM
آخر رد: Ofealas
  ممكن طريقة نقل اسماء من datagridview الي اكثر من textbox العطر الرايق 1 350 27-07-21, 03:59 AM
آخر رد: aldery
  الرجوع للفورم الرئيسيةعند عدم تحريك الماوس لمدة معينة جيولوجي مبتدئ 7 480 25-07-21, 07:33 PM
آخر رد: ابراهيم ايبو
  [VB.NET] استعلام تجميعي للاصناف خلال مدة معينة محمد اسماعيل 1 325 13-07-21, 02:46 AM
آخر رد: اسامه الهرماوي

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


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