VPF::Ввод только цифр в массив TextBox - Форум программистов

Flotskiy

Дата 23.11.2005, 09:08 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 223
Регистрация: 15.11.2004
Где: г. Омск

Репутация: 1
Всего: 2

Добрый день всем!
Возник такой вопрос:
Для ввода только цифр и запятой в TextBox есть такой код:

Код


Private Sub Text1_KeyPress(KeyAscii As Integer)
    If (KeyAscii > 47 And KeyAscii < 58) Or (KeyAscii = 8 Or KeyAscii = 44) Then
    Else
        KeyAscii = 0
    End If
End Sub

А как использовать его в массиве TextBox (Text1(0), Text1(1), и т.д.)?
С уважением

--------------------

FlotskiySk k

Kergan

Дата 23.11.2005, 10:43 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 159
Регистрация: 20.8.2005

Репутация: 3
Всего: 5

Код


Private Sub Text1_KeyPress(KeyAscii As Integer, Index as Integer)
    If (KeyAscii > 47 And KeyAscii < 58) Or (KeyAscii = 8 Or KeyAscii = 44) Then
    Else
        KeyAscii = 0
    End If
End Sub

Событие он сам сгенерирует. Например, создаешь массив, дважды кликаешь на однои элементе и он сгенерирует такой код

Код


Private Sub Text1_change(Index as Integer)
End Sub

Если нужен KeyPress - выбираешь в списке объектов (левый верхний угол редактора кода) Text1 и выбираешь в списке событий (список в правом верхнем углу) KeyPress. Вот и все...

Это сообщение отредактировал(а) Kergan - 23.11.2005, 10:45

--------------------

Была у меня дурацкая подпись...Я ее убрал, а новую еще не придумал. :(

Flotskiy

Дата 23.11.2005, 11:13 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 223
Регистрация: 15.11.2004
Где: г. Омск

Репутация: 1
Всего: 2

Kergan, Благодарю!
Так просто (а сам не додумался...)
Наилучшие пожелания

--------------------

FlotskiySk k

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »