• Home
 · 
• Miscellaneous
 · 
• Allow Numbers

Allow Numbers

Allow only numbers along with one deciaml.

Rate Allow Numbers

• 1
• 2
• 3
• 4
• 5

(4(4 Vote))

'***********************************************************
' This code only allows numbers along with one decimal
' point in text box named txtNumber. Also allow backspace.
'***********************************************************
    
  If KeyAscii > 47 And KeyAscii < 58 Or KeyAscii = 8 Or KeyAscii = 46 Then
    If KeyAscii = 46 Then
      If InStr(txtNumber.Text, ".") Then
        KeyAscii = 0
        Exit Sub
      Else
        txtNumber.Text = txtNumber.Text
      End If
    Else
    End If
    
  Else
    KeyAscii = 0
  End If