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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=9352)

الصفحات: 1 2

ممكن كود ارجاع عناصر اليست بوكس بعد ابحث - mazen - 20-06-13

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

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

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

ممكن كود ارجاع عناصر اليست بوكس بعد ابحث - sooriaty03 - 20-06-13

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

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

بالتوفيق

ممكن كود ارجاع عناصر اليست بوكس بعد ابحث - Sajad - 20-06-13

السلام عليكم

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

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

ممكن كود ارجاع عناصر اليست بوكس بعد ابحث - Sajad - 20-06-13

السلام عليكم

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

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 - 20-06-13

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

Length cannot be less than zero.
Parameter name: length

ممكن كود ارجاع عناصر اليست بوكس بعد ابحث - Sajad - 20-06-13

السلام عليكم

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

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

ممكن كود ارجاع عناصر اليست بوكس بعد ابحث - سعود - 20-06-13

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

ممكن كود ارجاع عناصر اليست بوكس بعد ابحث - Aly El-Haddad - 20-06-13

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

ممكن كود ارجاع عناصر اليست بوكس بعد ابحث - سعود - 20-06-13

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