06-03-17, 09:54 PM
بسم الله الرحمان الرحيم
بعد الصلاه على سيد الخلق محمد
اللهم صلي وسلم وبارك على سيدنا محمد
وآاله وصحبة
وبعد/
المشكله هي اريد فلتره الايميلات المحظورة
من داخل لست بوكس
ولكن العميلة لم تنجح
لكم صورة برنامج
مرد فلترة الايميلات العربية من داخل لست بوكس نفسة فقط
وكذلك فلترة الايميلات الانجليزية من داخل لست بوكس نفسة
الكود المراد تعديلة
كود :
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