9 lines
330 B
VB.net
9 lines
330 B
VB.net
'Imports System.Text.RegularExpressions
|
|
|
|
'Public Class Validaciones
|
|
' Public Shared Function EsEmail(ByVal email As String) As Boolean
|
|
' Static emailExpression As New Regex("^[_a-z0-9-]+(.[a-z0-9-]+)@[a-z0-9-]+(.[a-z0-9-]+)*(.[a-z]{2,4})$")
|
|
' Return emailExpression.IsMatch(email)
|
|
' End Function
|
|
'End Class
|