TextBox Angka

Dalam aplikasi yang berkaitan dengan angka seperti aplikasi penjualan atau aplikasi gudang, pasti akan ditemukan TextBox yang diharuskan diisi angka saja. Sebagai contoh pembuatannya, buat sebuah Form baru dengan sebuah TextBox didalamnya.

[ VB 6.0 ]
Ketikkan kode berikut di bagian 'Text1_KeyPress'.

Select Case KeyAscii
Case 8, 13, 27, 24, 3, 22 'key penting
Case Else
If InStr("0123456789-.,", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Select

Dan sebagai tambahan saja di bagian 'Text1_LostFocus' ketikkan :

If (Text1.Text <> "") And (Not IsNumeric(Text1.Text)) Then
MsgBox ("Harus bernilai angka !")
Text1.SetFocus
End If

[ VB .NET ]
Ketikkan kode berikut di bagian 'TextBox1_KeyPress'.

Select Case Asc(e.KeyChar)
Case 8, 13, 27, 24, 3, 22 'key penting
Case Else
If InStr("0123456789-.,", e.KeyChar) = 0 Then e.KeyChar = Chr(0)
End Select

Dan sebagai tambahan saja di bagian 'TextBox1_Leave' ketikkan :

If (TextBox1.Text <> "") And (Not IsNumeric(TextBox1.Text)) Then
MsgBox("Harus bernilai angka !")
TextBox1.Focus()
End If