Home > Seputar Komputer, Visual Basic 6.0 > Membuat validasi email pada visual basic

Membuat validasi email pada visual basic

Masih tentang Visual Basic 6.0, kali ini saya ingin  sharing tentang bagaimana membuat validasi untuk sebuah textbox untuk input email, kita dapat menggunakan fungsi sebagai berikut :

Buatlah fungsi seperti ini :

Public 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

Kemudian buatlah sebuah textbox dan beri nama txtEmail, masukkan kode berikut ini pada source code

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 = Len(txtEmail)
      txtEmail.SetFocus
   Else
      SendKeys vbTab
   End If
End If
End Sub

Ok sobat, semoga bermanfaat..

 

  1. No comments yet.
  1. No trackbacks yet.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: