Pada kesempatan kali ini admin akan sedikit share perihal 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 dihentikan 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 kemudian pilih mekanisme 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 abjad pada textbox. Secara outomatis syntak diatas akan menseleksi abjad yang diinputkan menurut opsi yang kita pilih. Cukup gampang bukan dan agar bermanfaat