منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
معادلة عد كلمة معينة داخل اكثر من تكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : معادلة عد كلمة معينة داخل اكثر من تكست بوكس (/showthread.php?tid=39501)

الصفحات: 1 2

معادلة عد كلمة معينة داخل اكثر من تكست بوكس - ابو العلاء - 10-09-21

السلام عليكم 

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

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

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



RE: معادلة عد كلمة معينة داخل اكثر من تكست بوكس - dalas - 10-09-21

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

RE: معادلة عد كلمة معينة داخل اكثر من تكست بوكس - ابو العلاء - 10-09-21

(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

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

RE: معادلة عد كلمة معينة داخل اكثر من تكست بوكس - dalas - 10-09-21

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

RE: معادلة عد كلمة معينة داخل اكثر من تكست بوكس - ابو العلاء - 11-09-21

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

يظهر هكذا

RE: معادلة عد كلمة معينة داخل اكثر من تكست بوكس - dalas - 11-09-21

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

RE: معادلة عد كلمة معينة داخل اكثر من تكست بوكس - ابراهيم ايبو - 11-09-21

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


RE: معادلة عد كلمة معينة داخل اكثر من تكست بوكس - ابو العلاء - 11-09-21

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

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

بس ممكن سؤال اذا كانت التكست بوكس داخل داخل اداة TabControl1
[attachment=26991]

RE: معادلة عد كلمة معينة داخل اكثر من تكست بوكس - dalas - 11-09-21

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

RE: معادلة عد كلمة معينة داخل اكثر من تكست بوكس - ابو العلاء - 11-09-21

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