ник: час
Как в текстовое поле Text1.Text запретить ввод символов (букв) и разрешить ввод только цифр
'A key is a digit (_KeyPress)
Public Function IsDigit(KeyAscii As Integer) As Boolean
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or (KeyAscii = 44) Or _
(KeyAscii = vbKeyDecimal) Or (KeyAscii = Asc("e")) Or (KeyAscii = vbKeyE) Then
IsDigit = True
Else
IsDigit = False
End If
End Function
|
Чуток переделайте - подумайте и получится - только буквы.
