منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - ممكن كود ارجاع عناصر اليست بوكس بعد ابحث

الصفحات : 1 2

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

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

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

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

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

بالتوفيق

السلام عليكم

اخي العزيز تستطيع ان تظلل الكلمة التي تبحث عنها بدون ان تمسح محتويات ال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 

مشكور جدا علي الرد اخي 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 ونفس الحال للاسم الثالث

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

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

Length cannot be less than zero.
Parameter name: length

السلام عليكم

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

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

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

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

رائع اخي

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

الصفحات : 1 2

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

mazen

sooriaty03

Sajad

mazen

Sajad

mazen

Sajad

سعود

Aly El-Haddad

سعود