[3asfa~mdmra]

بسم الله الرحمان الرحيم

بعد الصلاه على سيد الخلق محمد

اللهم صلي وسلم وبارك على سيدنا محمد

وآاله وصحبة

وبعد/

المشكله هي اريد فلتره الايميلات المحظورة

من داخل لست بوكس

ولكن العميلة لم تنجح

لكم صورة برنامج

مرد فلترة الايميلات العربية من داخل لست بوكس نفسة فقط

وكذلك فلترة الايميلات الانجليزية من داخل لست بوكس نفسة

الكود المراد تعديلة

كود :

 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

وشكراً

[3asfa~mdmra]

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

---

لقد اجتهدت ووضعت الكود التالي

ولكن دون جدوي

كود :

  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

ولكن النتجية في اللست بوكس صفر

[silverlight]

هل تقصد بكلمة فلترة عمل Sort للبيانات جميعها
محتاج افهم مقصدك بكلمة الايميلات عربيية .... يعني كيف يبدو شكلها
عموما و بشكل مبدئي يمكنك استخدام SortdDictionary و تضيف له كل البيانات الموجودة في الليست بوكس و هو سيتكفل بعمل الفلترة

[3asfa~mdmra]

اخي اريد تصفية

اي عمل

Sort

من داخل اللست بوكس

نفسو

يعني عند الضغط ع 

filter arabic user

من داخل الليست بوكس 

يقوم الكود بتصفية الايميلات العربية فقط

[3asfa~mdmra]

################

[3asfa~mdmra]

##############