README.md

December 4, 2022 ยท View on GitHub

Allow only numbers in a textbox!

Description

This program won't allow any other characters in a textbox then numbers and it allows you to use your Backspace key.

More Info

Submitted On
ByRayDance
LevelUnknown
User Rating4.8 (24 globes from 5 users)
CompatibilityVB 3.0, VB 4.0 (16-bit), VB 4.0 (32-bit), VB 5.0, VB 6.0
CategoryVB function enhancement
WorldVisual Basic
Archive File

Source Code

Private Sub text1_KeyPress(KeyAscii As Integer)
  Dim Numbers As Integer
  Dim Msg As String
  Numbers = KeyAscii
  If ((Numbers < 48 Or Numbers > 57) And Numbers <> 8) Then
   Msg = MsgBox("Only Numbers are aloud in this Textbox", vbCritical, "Error Number")
   KeyAscii = 0
  End If
End Sub