Игнорирование чисел
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 3
• Страница 1 из 1
- Morion
- Новичок
-
- Сообщения: 44
- Зарегистрирован: 11.03.2006 (Сб) 15:51
- Откуда: Сургут
Игнорирование чисел
Morion » 02.04.2006 (Вс) 12:29
Можно ли сделать так, чтобы в Text вводились только числа, а буквы игнорировались? А наоборот?
Компьютер – отличная вещь! Он позволяет решать все проблемы, которые до изобретения компьютера просто не существовали!..
- Amed
- Алфизик
- Сообщения: 5346
- Зарегистрирован: 09.03.2003 (Вс) 9:26
Amed » 02.04.2006 (Вс) 12:35
- Код: Выделить всё
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (Chr$(KeyAscii) Like "[!0-9]") Then KeyAscii = 0
End Sub
- Код: Выделить всё
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (Chr$(KeyAscii) Like "[!A-Z!a-z!А-Я!а-я]") Then KeyAscii = 0
End Sub
Только проверяй еще на служебные Backspace, Enter, Delete.
Сообщений: 3
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot, Google-бот и гости: 186