copyright 1999 - 2014 by heinz prelle - hannover  - lenbachstraße 42 - www.visual-basic5.de | impressum
Beispiel: VB .Net - EMail  Adresse auf Gültigkeit überprüfen
'
Option Explicit On
Option Strict On

Imports System.Text.RegularExpressions

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
            Handles MyBase.Load
        With Me
            .Text = "EMail - Adresse auf Gueltigkeit ueberpruefen"
            .CenterToScreen()
            .Button1.Text = "Ueberpruefen"
            .ComboBox1.Items.AddRange(Me.InitTestAddresses().ToArray())
            If .ComboBox1.Items.Count > 0 Then .ComboBox1.SelectedIndex = 0
        End With
    End Sub

    Public Class ValidateEmailAddresses

        Private Shared ReadOnly Property Pattern() As String
            Get
                Return _
                "^(([\w-]+\.)+[\w-]+|([a-zA-Z]{1}|[\w-]{2,}))@((([0-1]?[0-9]{1,2}|2{1}[0-5]{2})\.([0-1]?[0-9]{1,2}|2{1}[0-5]" & _
                "{2})\.([0-1]?[0-9]{1,2}|2{1}[0-5]{2})\.([0-1]?[0-9]{1,2}|2{1}[0-5]{2})){1}|([a-zA-Z]+[\w-]+\.)+[a-zA-Z]{2,4})$"
            End Get
        End Property

        Public Shared Function ValidateEmailAddress(ByVal Address As String) As Boolean
            If Address = "" Then
                Return False
            Else
                Return Regex.IsMatch(Address, Pattern())
            End If
        End Function

    End Class

    Private Function InitTestAddresses() As List(Of String)
        Dim List As New List(Of String)
        Dim s As String() = _
            { _
            "hprelle@test.de", _
            "h prelle@test.de", _
            "hprelle", _
            "hprelle@t est.de", _
            "hprelle@test.", _
            "hprelle@test.a", _
            "hprelle@media.com" _
            }
        For Each Addresses In s
            List.Add(Addresses)
        Next
        Return List
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
            Handles Button1.Click
        Me.Text = ValidateEmailAddresses.ValidateEmailAddress(Me.ComboBox1.SelectedItem.ToString()).ToString()
    End Sub

End Class
Sourcecode Visual Basic