[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

وشكراً