Validasi input di Visual Basic 6

Mengetahui input dari pengguna benar atau tidak caranya cukup banyak dan tergantung apa yang ingin divalidasi dari input pengguna, yang paling sederhana misal ingin memastikan bahwa input pengguna adalah hanya bisa angka saja. Biasanya kita akan membuat validasi sendiri – sendiri dan berbeda – beda tergantung input apa yang dimasukkan pengguna dan akan diproses seperti apa nantinya.
Kali ini saya akan memberikan cara validasi yang bisa digunakan berulang kali dan bisa disesuaikan dengan mudah tergantung kebutuhan anda beserta contoh penggunaannya yang umum.

1.Validasi input hanya angka:

Public Sub NumberValid(KeyAscii As Integer)

Const Number = "0123456789"

If KeyAscii <> 8 And KeyAscii <> 13 Then

   If InStr(Number, Chr(KeyAscii)) = 0 Then

      KeyAscii = 0

      Exit Sub

   End If

End If

End Sub

2.Validasi input hanya huruf:

Public Sub CharacterValid(KeyAscii As Integer)

Const Character = "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz "

If KeyAscii <> 8 And KeyAscii <> 13 Then

   If InStr(Character, Chr(KeyAscii)) = 0 Then

      KeyAscii = 0

      Exit Sub

   End If

End If

End Sub

 

3.Validasi input angka dan huruf:

Public Sub AlphaNumericValid(KeyAscii As Integer)

Const Character = "0123456789AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz "

If KeyAscii <> 8 And KeyAscii <> 13 Then

   If InStr(Character, Chr(KeyAscii)) = 0 Then

      KeyAscii = 0

      Exit Sub

   End If

End If

End Sub