VB - Kako uraditi da se u text1.text moze upisati samo brojeve?

[ X-Cite @ 26.07.2004. 12:09 ] @

To znaci da ako neko pokusa da upise slovo... da jednostavno neide ili da mu cak ispise da su dozvoljeni samo brojevi.
hvala

[ mladenovicz @ 26.07.2004. 12:32 ] @

Code:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9" Then
        KeyAscii = 0
    End If
End Sub

[ luka.l @ 26.07.2004. 21:15 ] @

Evo ti vec zgotovljena varijanta.

[ X-Cite @ 26.07.2004. 22:23 ] @

Hvala momci

[ Pr[o_O]F @ 23.08.2004. 20:49 ] @

Ok moze i ovo gore proci al mislim da je ovo bolje:

Code:

Private Sub txtNesto_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case 48 To 57   ' Dozvoli cifre
        Case 8      ' Dozvoli Backspace
        Case 46     ' I tacku
        Case Else
            KeyAscii = 0
            Beep
    End Select
End Sub