Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

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

Автор: Flotskiy 23.11.2005, 09:08

Добрый день всем!
Возник такой вопрос:
Для ввода только цифр и запятой в 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), и т.д.)?
С уважением

Автор: Kergan 23.11.2005, 10:43

Код


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. Вот и все...

Автор: Flotskiy 23.11.2005, 11:13

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