Langkah-langkah membuat User Control “Text Box Email Checker” di VB.Net 2005
- Klik MenuFile –> New –> Windows Control Library, Isi nama Project-nya misalnya TextBoxEmailChecker.
- Masukkan komponen TextBox kedalam area yang telah di sediakan di view design
- Masukkan juga komponen ErrorProvider untuk memberikan alert kepada user bahwa email yang dimasukkan tidak valid.
- Buatlah event validating di komponen textbox
Ketiklah beberapa code dibawah ini
Public Class controlTxtEmail
Dim emailAt() As String
Dim emailDot() As String
Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtEmail.Validating
emailAt = Split(txtEmail.Text, “@”)
emailDot = Split(txtEmail.Text, “.”)
If emailAt.Length – 1 = 1 And (emailDot.Length – 1 > 0 And emailDot.Length – 1 < 3) Then
ErrorProvider1.SetError(txtEmail, “”)
Else
ErrorProvider1.SetError(txtEmail, “Masukan Email dengan Benar” & vbCrLf & “Contoh: admin@domain.com atau admin@domain.co.id”)
txtEmail.Focus()
End If
End Sub
End Class
Skenarionya email yang valid seperti admin@domain.co.id atau admin@domain.com.
Kita menggunakan method split untuk memisahkan string menjadi array yg bertipe data String. Jadi misalkan kita memisahkan alamat email dengan karakter “@” maka seharusnya akan menjadi 2 buah array yg nilainya array yg ke-1 bernilai admin dan yg kedua bernilai domain.com jika nilainya 3 maka email tersebut tidak valid misalnya admin@kantor@domain.com.
Yang kedua kita cek karakter “.” sama seperti karakter “@” kita cek jika hasil split antara 2 dan 3 maka email tersebut valid jika lebih dari 4 maka email tersebut tidak valid. Jika email yg dimasukkan tidak valid maka aka muncul errorProvider berisi “Masukkan email dengan benar”
Setelah itu jalankan atau tekan tombol run untuk mengetest user control yg barusan kita buat.
Kita juga bisa memasukkan beberapa property tambahan misalnya untuk mengetahui domain dari alamat email yg dimasukkan, tambahkan code dibawah ini..
Public ReadOnly Property domain() As String
Get
Dim hasil As String = “”
emailAt = Split(txtEmail.Text, “@”)
If emailAt.Length – 1 = 1 Then
hasil = emailAt(1)
End If
Return hasil
End Get
End Property
Artinya, property domain hanya bisa diambil nilainya, kita tidak bisa memasukkan nilai ke dalam property tsb.
Misalnya : justienadambakhtiar@gmail.com maka hasilnya gmail.com
Untuk memasukkan user control tersebut
klik kanan di toolbox, tekan Choose Item –> tekan tombol browse. Masukkan file .dll yang kita buat tadi.. maka user control yg kita buat tadi akan muncul di toolbox,tinggal drag user control tsb ke dalam form lalu jalankan….
semoga membantu…. 
