Validasi Alamat Email Pada VB .Net

Selamat datang di Blog BelajarVB.com - Blog ini kami dedikasikan kepada anda yang sedang belajar Visual Basic baik versi VB 6.0 maupun versi VB .Net. Pada kesempatan kali ini kami akan membahas mengenai Validasi Alamat Email Pada VB .Net. Validasi ini biasanya digunakan dalam membuat kontak book yang terdapat alamat email.

Jika aplikasi anda terhubung Internet dan akan mengirimkan / blas email ke supplier atau pegawai anda, maka anda wajib mengisikan alamat email dengan benar. Oleh karena itu Validasi dalam alamat email jika dibutuhkan akan sangat penting.

Silahkan ikuti langkah dibawah untuk mengetahui cara validasi alamat email pada VB .Net
Silahkan nyalakan Komputer atau Laptop anda
Baka Aplikasi VB .Net anda
Klik File - New Project
Jika sudah muncul Form1, silahkan design Form1 seperti gambar dibawah ini :

Gambar diatas terdapat :
TextBox1, Button1, Button2 dan RichTextBox1

Baca Juga : Cara Kirim Email Dengan VB .Net

Jika sudah selesai membuat Design Form seperti gambar diatas, silahkan masukan koding dibawah ini :

Imports System.Text.RegularExpressions
Public Class Form1
    Public Function ValisasiAlamatEmail(emailAddress) As Boolean
        Dim email As New Regex("([\w-+]+(?:\.[\w-+]+)*@(?:[\w-]+\.)+[a-zA-Z]{2,7})")
        If email.IsMatch(emailAddress) Then
            Return True
        Else
            Return False
        End If
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If ValisasiAlamatEmail(TextBox1.Text) = True Then
            MsgBox("Alamat Email Benar")
        Else
            MsgBox("Alamat Email Tidak Benar")
        End If
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        End
    End Sub
End Class

Jika sudah memasukan Koding diatas pada Form1, silahkan run atau jalankan project VB .Net anda
Note :
Masukan Alamat Email pada Text1, kemudian Klik Check. Jika alamat email benar maka akan terdapat pesan benar. Namun jika salah maka kebalikannya.

Semoga bermanfaat untuk pembelajaran VB .Net anda. Kami senang jika anda berkomentar dibawah :)