[mazen]

انا عندي ليست بوكس وابحث بداخلة عن سنة معينة وعند البحث يستخرج السنة ويحذف باقي السنوات والكود لحد كدة شغال معايا

بس المشكلة اني بعد البحث لايرجع كل محتوي اليست بوكس اي العانصر التي سبق تحميلها collection item

اريد ارجاع العناصر لانة يجب غلق ابرنامج لارجاعها

[sooriaty03]

السلام عليكم ورحمة الله وبركاته

أخي الكريم
ضع أداتي ListBox
الأولى تضع فيها البيانات
والثانية تعرض فيها نتائج البحث

بالتوفيق

[Sajad]

السلام عليكم

اخي العزيز تستطيع ان تظلل الكلمة التي تبحث عنها بدون ان تمسح محتويات الListbox كالتالي:

PHP كود :

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        For i = 0 To ListBox1.Items.Count - 1
            If (ListBox1.Items(i) = "sajad") Then
                ListBox1.SelectedItem = ListBox1.Items(i)
            End If
        Next
    End Sub 


[mazen]

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

[Sajad]

السلام عليكم

تفضل اخي العزيز

PHP كود :

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim s As String = "sajad mohammed baqir"
        Dim item As String
        For i = 0 To ListBox1.Items.Count - 1
            item = ListBox1.Items(i).ToString()
            If (item.Substring(0, item.IndexOf(" ")) = s.Substring(0, s.IndexOf(" "))) Then
                If (item.Substring(item.IndexOf(" "), item.LastIndexOf(" ")) = s.Substring(s.IndexOf(" "), s.LastIndexOf(" "))) Then
                    If (item.Substring(item.LastIndexOf(" "), item.Length - item.LastIndexOf(" ")) = s.Substring(s.LastIndexOf(" "), s.Length - s.LastIndexOf(" "))) Then


                        ListBox1.SelectedItem = ListBox1.Items(i)
                    End If
                End If
            End If
        Next
    End Sub 


الكود اعلاه يقوم اولا بمقارنة الاسم الاول مع الاسم الاول في الList اذا تطابق الاسمان سيقوم بمقارنة الاسم الثاني مع الاسم الثاني في الList ونفس الحال للاسم الثالث

موفق ان شاءالله

[mazen]

اي عملية بحث تعطي الخطا

Length cannot be less than zero.
Parameter name: length

[Sajad]

السلام عليكم

اخي العزيز يجب ان تكتب الاسم كاملة أي (ثلاثي) انا جربت المثال ورفعته لك حسب ما فهمت

فيا ريت اذا ما تريده تختلف فارجو التوضيح

[سعود]

حتى يتبين لك ماقاله الاخوة الفضلاء .. جرب وضع كود تحميل البيانات في روتين sub مستقل وقم باستدعائه متى ما اردت.

[Aly El-Haddad]

السلام عليكم،
يوجد مثال بالمرفقات قد يلبي طلبك

[سعود]

رائع اخي

Aly El-Haddad بارك الله فيك