Script VB Membatasi Input Data

Ada saatnya seorang programmer membutuhkan suatu pembatasan input data untuk menghasilkan suatu aplikasi yang powerfull, disamping itu memberikan kenyamanan bagi pengguna aplikasi dalam mengoperasikan aplikasinya.
Salah satu contoh : misalkan ada data jumlah barang, tentunya aplikasi hanya menerima input data berupa angka. Tanpa pembatasan tersebut memungkinkan aplikasi tersebut akan mengalami crash, ketika data jumlah barang tersebut diproses.

Berikut adalah contoh script Visual Basic untuk membatasi input data.

Masukan script dibawah ini kedalam sebuah module :

Public Enum DataFormats
df_Huruf = 0
df_Angka = 1
df_HurufDanAngka = 2
End Enum

Public Function CekInput(df As DataFormats, idfText As Integer) As Integer
If idfText = 8 Then
CekInput = idfText
Exit Function
End If

Select Case df
Case 0 'huruf saja
Select Case Chr(idfText)
Case "A" To "Z", "a" To "z", Chr(8)
CekInput = idfText
Exit Function
End Select
Case 1 'angka saja
Select Case Chr(idfText)
Case "0" To "9", Chr(8)
CekInput = idfText
Exit Function
End Select
Case 2 'huruf dan angka
Select Case Chr(idfText)
Case "A" To "Z", "a" To "z", "0" To "9", Chr(8)
CekInput = idfText
Exit Function
End Select
End Select
End Function


Berikut salah satu contoh penggunaan untuk membatasi Text5 dari karakter selain angka :

Private Sub Text5_KeyPress(KeyAscii As Integer)
KeyAscii = CekInput(df_Angka, KeyAscii)

End Sub