вопрос про текстбоккс

[Ruslan Demidow]

uhm
ну я уже не учусь практически... ))
а это точно работать будет?

Точно. Проверь.

P.S. Если в текстбоксе будет числовое значение.

[Matv]

Может я прочитал этот раздел с запозданием и ещё не сильно разобрался с VB6, но проблема была в представлении десятичных чисел в тестбоксе.
В текстбокс сбрасывается число с запятой, а для функции VAL нужно число с точкой.
т.е. Val("0.2323")=0.2323, но Val("0,2323")=0
А как с этим бороться думаю подскажут специалисты. Я просто проверяю значение в тексбоксе на наличее запятой и меняю её на точку. Но слышал, что можно что то делать с национальным представлением чисел или что то в этом роде. Но я там ещё не копал.

[Ruslan Demidow]

Лучше в событии Text1_Change поместить вызов

Код: Выделить всё


Sub Text1_Change()
Text1.Text= Replace(Text1.Text, ",",".")
End Sub


Тогда и региональные настройки в системе не нужно редактировать.
Но все варианты региональных настроек не предусмотришь, так что всегда есть возможность нарваться на 0.