• Home
 · 
• Miscellaneous
 · 
• TextBox that accepts only 1.numeric value 2.backspace 3.single decimal

TextBox that accepts only 1.numeric value 2.backspace 3.single decimal

TextBox that accepts only 1.numeric value 2.backspace 3.single decimal

Rate TextBox that accepts only 1.numeric value 2.backspace 3.single decimal

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

            Text1.Text = " "
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
            If KeyAscii = vbKeyBack Then Exit Sub
            If KeyAscii = Asc(".") And InStr(1, Text1.Text, ".") = 0 Then
               KeyAscii = Asc(".")
               Exit Sub
            End If
          If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
            
End Sub