Cara Memvalidasi Penginputan Karakter

Pada kesempatan kali ini admin akan sedikit share tentang Cara Memvalidasi Penginputan Karakter pada textBox di Microsoft Visual Basic 6.0. Terkadang kita menghadapi suatu studi kasus dalam pembuatan sebuah aplikasi, adakalanya TextBox yang kita buat hanya diperbolehkan angka / numeric saja, ada pula hanya karakter-karakter tertentu yang tidak boleh diinputkan.

Buat dan designlah sebuah form pada Micorosoft Visual Basic 6.0 dengan menambahkan beberapa komponen

No	Komponen	Name	Caption
1	Form1	Form1	Validasi Karakter
2	OptionButton	OptNumeric	Hanya Numeric
3	OptionButton	optHurufBesar	Hanya Huruf Besar
4	OptionButton	optHurufKecil	Hanya Huruf Kecil
5	OptionButton	optValidasi	Hanya Karakter Selain (!#$%^&*'~`{}\/)
6	TextBox	Text1	-

Kemudian double klik pada textbox lalu pilih prosedur KeyPress dan copykan syntak dibawah ini

If OptNumeric.Value = True Then
  If Not (KeyAscii >= Asc("0") & Chr(13) _
     And KeyAscii <= Asc("9") & Chr(13) _
     Or KeyAscii = vbKeyBack _
     Or KeyAscii = vbKeyDelete _
     Or KeyAscii = vbKeySpace) Then
        Beep
        KeyAscii = 0
   End If
  
ElseIf optHurufBesar.Value = True Then
   KeyAscii = Asc(UCase(Chr(KeyAscii)))
  
ElseIf optHurufKecil.Value = True Then
   KeyAscii = Asc(LCase(Chr(KeyAscii)))

ElseIf optValidasi.Value = True Then
    Dim sTemplate As String
    sTemplate = "!#$%^&*'~`{}\/"
    If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then
        KeyAscii = 0
    End If
End If

Simpan dan RUN/F5. Pilihlah salah satu dari opsi pada form diatas kemudian inputkan karakter pada textbox. Secara outomatis syntak diatas akan menseleksi karakter yang diinputkan berdasarkan opsi yang kita pilih. Cukup mudah bukan dan semoga bermanfaat