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

نسخة كاملة : مشكلة في فلترة في listbox
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
بسم الله الرحمان الرحيم
بعد الصلاه على سيد الخلق محمد
اللهم صلي وسلم وبارك على سيدنا محمد
وآاله وصحبة
وبعد/
المشكله هي اريد فلتره الايميلات المحظورة
من داخل لست بوكس
ولكن العميلة لم تنجح
لكم صورة برنامج
مرد فلترة الايميلات العربية من داخل لست بوكس نفسة فقط
وكذلك فلترة الايميلات الانجليزية من داخل لست بوكس نفسة
الكود المراد تعديلة

كود :
 Private Sub LogInButton24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogInButton24.Click
       banlist.Sorted = True
       banlist.Items.Clear()
       For counter As Integer = 0 To banlist.Items.Count - 1
           Dim arr As String = banlist.Items(counter).ToString()
           For Each s As String In arr
               If Regex.Match(s, "[a-zA-Z]").Value <> "" Then

               Else
                   banlist.Items.Add(s.Trim)
               End If
           Next

       Next
   End Sub
وشكراً
شباب الرجاء الاهتمام بالموضع البرنامج سينتهي عند انتهاء هذه النقطة

لقد اجتهدت ووضعت الكود التالي
ولكن دون جدوي
كود :
  listbox1.Sorted = True
       listbox1.Items.Clear()

       Dim arr As String = listbox1.Items.Count.ToString()
       For Each s As String In arr
           If Regex.Match(s, "[a-zA-Z]").Value <> "" Then
               listbox1.Items.Add(s.Trim)
           Else
               listbox1.Items.Add(s.Trim)
           End If
       Next
ولكن النتجية في اللست بوكس صفر
هل تقصد بكلمة فلترة عمل Sort للبيانات جميعها
محتاج افهم مقصدك بكلمة الايميلات عربيية .... يعني كيف يبدو شكلها
عموما و بشكل مبدئي يمكنك استخدام SortdDictionary و تضيف له كل البيانات الموجودة في الليست بوكس و هو سيتكفل بعمل الفلترة
اخي اريد تصفية
اي عمل
Sort
من داخل اللست بوكس
نفسو
يعني عند الضغط ع 
filter arabic user
من داخل الليست بوكس 
يقوم الكود بتصفية الايميلات العربية فقط
################
##############