[أبو خالد الشكري]

(05-08-22, 04:39 PM)حسن الجلب كتب : السلام عليكم هل يوجد حل

وعليكم السلام

تفضل ، هذا هو الحل 

ضع الإيميل الذي تريد اختباره في TextBox

كود :

' ضع هذا السطر في التصريحات العانة
Imports System.Text.RegularExpressions
' Public Class Form1 ضعه فوق السطر

Dim pattern As String
       pattern = "^([0-9a-zA-Z]([-\.\w]*[0-9a-zA-Z])*@([0-9a-zA-Z][-\w]*[0-9a-zA-Z]\.)+[a-zA-Z]{2,9})$"

       Dim mailToCheck As String = TextBox1.Text

       If Regex.IsMatch(mailToCheck, pattern) Then
           MsgBox("إيميل صحيح")
       Else
           MsgBox("إيميل غير صحيح")
       End If