9
Ноябрь
2008
Ввод только цифр в TextBox.
Ввод только цифр в TextBox.
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then KeyAscii = 0
End Sub
Ввод только цифр в TextBox.
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then KeyAscii = 0
End Sub
Почему бы Вам не высказать свое мнение! Позвольте нам узнать, что Вы думаете...