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

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

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

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

وآاله وصحبة

وبعد/

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

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

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

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

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

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

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

كود :
 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

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

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

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

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

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

3asfa~mdmra

3asfa~mdmra

silverlight

3asfa~mdmra

3asfa~mdmra

3asfa~mdmra