Services Tips Contact

Apenas números na caixa de texto, código curto

Dica

Visual Basic 6.0

Aceitar apenas números na caixa de texto é simples, mas as rotinas existentes às vezes são um pouco complicadas.
Maneira simples: coloque o seguinte código no evento KeyPress da caixa de texto:


Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii <48 Then
        KeyAscii = 0
    End If
End Sub
--
01/01/2004