Sección de ejemplos vb.net

19 - RegEx - Validar mail

Ejemplo que usa la clase Regex de .net y el método IsMatch para comprobar una dirección de mail mediante expresiones regulares

Para el ejemplo colocar un control button

Código fuente en un windows forms

Option Explicit On Option Strict On ' Espacio de nombres con clases para el manejo de expresiones regulares en .NET Imports System.Text.RegularExpressions Public Class Form1 Private Function validar_Mail(ByVal sMail As String) As Boolean ' retorna true o false Return Regex.IsMatch(sMail, _ "^([\w-]+\.)*?[\w-]+@[\w-]+\.([\w-]+\.)*?[\w]+$") End Function Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim sMail As String sMail = InputBox("Escribir una dirección de email", "validación") If Len(sMail) > 0 Then MsgBox(validar_Mail(sMail), MsgBoxStyle.Information) End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles MyBase.Load Button1.Text = " Validar mail " End Sub End Class

Recursos visual basic 6

Función para Validar email

Buscar en Recursos vb