السلام عليكم
لدي اكثر من تكست بوكس تحتوي على اسماء
هل يوجد معادلة استطيع من خلالها عد تكرار اسم معين في التكس بوكس
صورة الفورم للتوضيح
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
لم تفلح معي اخي الكريم
ليه
ايه اللي حصل
انسخ الاسم المطلوب والصقه بدل ahmad اللي في الكود وجرب
[attachment=26990 كتب :dalas pid='176719' dateline='1631303745'][attachment=26990]ليه
ايه اللي حصل
انسخ الاسم المطلوب والصقه بدل ahmad اللي في الكود وجرب
يظهر هكذا
معلش اخطات في كلمه في الكود
عدل كلمة 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
[
attachment=26991]
ممكن تستخدم طريقه اخي ابراهيم فهي تغنيك فين ما كانت التكست بوكس
في الكود اللي مني
استبدل كلمة me باسم tabpage اللي فيه مجموعة التكست بوكس