Sección vb.net
Volver - Anterior - Siguiente
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
Buscar en Recursos vb
Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2008 - www.recursosvisualbasic.com.ar