To znaci da ako neko pokusa da upise slovo... da jednostavno neide ili da mu cak ispise da su dozvoljeni samo brojevi.
hvala
hvala
Potpis
Pozdrav
GoGy
GoGy
VB - Kako uraditi da se u text1.text moze upisati samo brojeve?
Zaključano
Zakačeno
Code:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9" Then
KeyAscii = 0
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9" Then
KeyAscii = 0
End If
End Sub
Potpis
Evo ti vec zgotovljena varijanta.
Potpis
Hvala momci
Potpis
Pozdrav
GoGy
GoGy
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
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
Potpis
[ :. n!t .: ]