[VBNET] Regex 를 이용한 간단한 이메일 주소 체크

* VBNET Regex 를 이용한 간단한 이메일 주소 체크 예제...

 

Main

 

 

- 사용한 컨트롤 : TextBox 1개, Button 1개, Label 1개

 

전체 소스 코드

Form1.vb

 

Imports System.Text.RegularExpressions

Public Class Form1

    Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click

        Dim bEmail As Boolean = Regex.IsMatch(textBox1.Text, "[a-zA-Z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-zA-Z0-9!#$%&'*+/=?^_`{|}~-]+)*@(?:[a-zA-Z0-9](?:[a-zA-Z0-9-]*[a-zA-Z0-9])?\.)+[a-zA-Z0-9](?:[a-zA-Z0-9-]*[a-zA-Z0-9])?")

        If bEmail Then
            label1.Text = "이메일 주소가 맞습니다."
        Else
            label1.Text = "이메일 주소가 아닙니다."
        End If

    End Sub

End Class

 

 

* 예제 결과