Validasi Email pada (VB 6.0)

Berikut ini saya bagikan lagi ke teman-teman cara Memvalidasi Alamat Email pada VB 6.0 (Visual Basic). Ok, karena saya tidak suka bertele-tele langsung saja ke langkah pembuatannya.

Berikut ini langkah pembuatannya.

1. Buat project baru.
2. Tambahkan sebuah Textbox pada Form yang aktif dan atur properties-nya dengan Name=txtEmail.
3. Setelah itu tambahkan kode berikut ini.

Function IsEmail(ByVal Str As String) As Boolean
Set r = CreateObject("VBScript.RegExp")
r.IgnoreCase = True
r.Pattern = "^[\w-\.]+@\w+\.\w+$"
IsEmail = r.test(Str)
End Function

4. Tambahkan lagi kode berikut ini.

Private Sub txtEmail_Keypress(KeyAscii As Integer)
KeyAscii = Asc(UCase$(Chr$(KeyAscii)))
If KeyAscii = 13 Then
   If txtEmail = "" Then
      txtEmail.SetFocus
   ElseIf IsEmail(txtEmail) = False Then
      txtEmail.SelStart = 0
      txtEmail.SelLength = Len(txtEmail)
      txtEmail.SetFocus
     MsgBox "Email tidak diketahui.!", vbExclamation
   Else
     MsgBox "Email diketahui.", vbInformation
   End If
End If
End Sub

5. Selesai dan jalankan programnya.

Download contoh programnya disini atau disini.