• Home
 · 
• Miscellaneous
 · 
• Simple code allows print into the TextBox numbers only.

Simple code allows print into the TextBox numbers only.

Simple code allows print into the TextBox numbers only.

API Declarations



Public Sub NUMBERS_ONLY(KeyAscii As Integer, TXT As TextBox)
Select Case KeyAscii
'negotive numbers
'KeyAscii; 45 is "-"
Case 45
If Len(TXT.Text) >= 1 Then
KeyAscii = 0
End If
'KeyAscii; 8 is "Backspace", 46 is "." decimal,
' 48-57 is "0-9"
Case 8, 46, 48 To 57
KeyAscii = KeyAscii
Case Else
KeyAscii = 0
End Select
End Sub




Rate Simple code allows print into the TextBox numbers only.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'on KeyPress event:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    NUMBERS_ONLY KeyAscii, Text1
End Sub