• Home
 · 
• String Manipulation
 · 
• 'Simple code to allow only numbers to be typed into a textbox without 'using any API's .DELETE,

'Simple code to allow only numbers to be typed into a textbox without 'using any API's .DELETE,

'Simple code to allow only numbers to be typed into a textbox without 'using any API's ."DELETE", "BACKSPACE" AND "." keys also work.Nothing

Rate 'Simple code to allow only numbers to be typed into a textbox without 'using any API's .DELETE,

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Submitted by Rajesh Sivaraman               [email protected]
'Simple code to allow only numbers to be typed into a textbox without
'using any API's ."DELETE", "BACKSPACE" AND "." keys also work.Nothing
'happens when characters are typed.

'code

Private Sub Text1_KeyPress(KeyAscii As Integer)
'ascii 8 stands for-backspace,46-delete and 48-57 stands for 0 to 9
 If KeyAscii <> 8 And KeyAscii <> 46 And KeyAscii < 48 Or KeyAscii > 57 Then
      KeyAscii = 0
 End If
End Sub

'Aliter
'The same above is made into a function which you can put in a module and use
'in multiple forms by simply calling the function.


Public Function numonly(KeyAscii) As Integer
 If KeyAscii <> 8 And KeyAscii <> 46 And KeyAscii < 48 Or KeyAscii > 57 Then
      numonly = 0
 Else
 numonly = KeyAscii
 End If
End Function


'The function can be called as shown below

Private Sub Text1_KeyPress(KeyAscii As Integer)
       KeyAscii = numonly(KeyAscii)
End Sub