Advertisement
5_2007-2008 VB function enhancement #173069

Numerical input into text box (1 line of code)

With this 1 line of code you can strip non-numerical input into text boxes.

AI

Resumen de IA: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Código fuente
original-source
Private Sub Text1_KeyPress(KeyAscii As Integer)
' Force numbers only in a text box
If IsNumeric(Chr(KeyAscii)) <> True Then KeyAscii = 0
End Sub
Comentarios originales (3)
Recuperado de Wayback Machine