 |
|
Модераторы: Akina |
 
|
|
Только числа, Опять я дурак... 
| DarkAngel |
|
|||
|
Шустрый  Профиль Группа: Участник Сообщений: 113 Регистрация: 19.3.2005 Репутация: нет Всего: 1 |
Вот опять я достаю своими тупыми вопросами....как на ввод разрешить только числовые значения?то есть запретить буквы???
|
|||
|
||||
Загрузка ...
| Staruha |
|
|||
 Эксперт Профиль Группа: Участник Клуба Сообщений: 1292 Регистрация: 1.2.2004 Где: Казань Репутация: 2 Всего: 27 |
Был такой вопрос .Не нашла.Помню
что-то навроде этого. -------------------- Возмездие настигнет |
|||
|
||||
| SOY |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 44 Регистрация: 30.10.2004 Репутация: 1 Всего: 1 |
если на ввод в textbox, то...
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii >= 48 And KeyAscii <= 57 Then MsgBox "ввел число" End If End Sub Добавлено @ 17:41 да, еще, чтобы вообще запретить ввод, вместо строки Msgbox... введи: KeyAscii = 0 beep |
|||
|
||||
| SOY |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 44 Регистрация: 30.10.2004 Репутация: 1 Всего: 1 |
А так разрешено вводить только числа
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyBack Then exit sub ElseIf KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then KeyAscii = 0 Beep End If End Sub |
|||
|
||||
| cardinal |
|
|||
 Инженер Профиль Группа: Экс. модератор Сообщений: 6003 Регистрация: 26.3.2002 Где: Германия Репутация: 19 Всего: 99 |
В FAQ'е был?
-------------------- Немецкая оппозиция потребовала упростить натурализацию иммигрантов В моем блоге: Разные истории из жизни в Германии "Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие |
|||
|
||||
| efedron |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 135 Регистрация: 16.3.2005 Репутация: 4 Всего: 4 |
самое нормальное, это подать сообщение окну для ввода текста сообщение wm_numeric (или что-то похожее), тогда вводиться будут только цифры.
--------------------
Прежде чем совершить акт разрезания определенной материи целесообразно удостовериться в правильности всех произведенных измерений. |
|||
|
||||
| Staruha |
|
|||
|
Эксперт Профиль Группа: Участник Клуба Сообщений: 1292 Регистрация: 1.2.2004 Где: Казань Репутация: 2 Всего: 27 |
If Not IsNumeric
-------------------- Возмездие настигнет |
|||
|
||||
| amt |
|
|||
 Бывалый Профиль Группа: Участник Сообщений: 249 Регистрация: 26.10.2004 Где: г. Волгоград Репутация: 3 Всего: 3 |
Мне что-то смутно помнится, что у Textbox есть сво-во определяющее тип данных. Я когда-то с ним баловался. И, по-моему, если установить для него числовой формат, то при вводе будет возникать ошибка, которую и можно обработать и выдавать, например, сответсвующее сообщение.
--------------------
С точки зрения банальной эрудиции не каждый индивидуум способен игнорировать тенденции парадоксальных эмоций. |
|||
|
||||
| cardinal |
|
|||
|
Инженер Профиль Группа: Экс. модератор Сообщений: 6003 Регистрация: 26.3.2002 Где: Германия Репутация: 19 Всего: 99 |
-------------------- Немецкая оппозиция потребовала упростить натурализацию иммигрантов В моем блоге: Разные истории из жизни в Германии "Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие |
|||
|
||||
| DarkAngel |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 113 Регистрация: 19.3.2005 Репутация: нет Всего: 1 |
Всем пасиб!!!!!!!Тут разрулила помощь SOY ,но благодарен всем...
|
|||
|
||||
| Yakov |
|
|||
|
Unregistered |
код не мой, но сам недавно столкнулся с проблемой. очень выручил
Private Sub TxtID_KeyDown(KeyCode As Integer, Shift As Integer) txtID.Locked = IIf((KeyCode > 47 And KeyCode < 58) Or (KeyCode > 95 And KeyCode < 106) Or _ (KeyCode = 8) Or (KeyCode = 46) Or (KeyCode = 188), IIf(KeyCode = 188, _ IIf(InStr(1, txtID, ",") = 0 And txtID.SelStart <> 0, False, True), False), True) End Sub |
|||
|
||||
|
|
| Правила форума "VB6" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | VB6 | Следующая тема » |
[ Время генерации скрипта: 0.0775 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |