TextBox и десятичный знак

[Yurich]

Вопрос думаю несложный

Dim Value as Single
Text1.Text=5.5
Value=Val(Text1.Text)
В зависимости от настроек стандартов винды (точка или запятая в разделителе) Value принимает значения 5.5 или 5
Как заставить при любых условиях возвращать 5.5?

[GSerg]

Кто-то тут говорит неправду

Val игнорирует национальные настройки и любит точку. CDbl наоборот.

[Yurich]

Val игнорирует национальные настройки и любит точку...

В том и беда ... Надо чтобы TextBox всегда рисовал точку!
Может есть API, которые позволят изменять/восстанавливать эти настройки программно?

[GSerg]

Текстбокс рисует только то, что ему говорят Скажут рисовать точку - нарисует, независимо от национальных настроек.
Юзеров, что ли, надо заставить точку вводить?
Откуда вообще берётся точка?

[Kostyan]

Если делать так:
Value=5.5
Text1.Text = Trim$(Str$(Value))
то в текстбоксе будет 5.5

Когда нужно что-то посчитать, то переводим в число
Value=Val(Text1.Text)
а для отображения, обратно в строку
Tеxt1.Text=Trim$(Str$(Value))

[Юстас]

А функция Replace для чего существует?

Replace(Text1.Text,",",".")

[alibek]

Ненадежно это.
А если у пользователя разделитель дробной и целой части не точка и не запятая (а например, апостоф)?
А если у пользователя разделитель дробной и целой части и разделитель групп разрядов совпадают?

[Юстас]

А если разделитель - восклицательный знак?
А если разделитель - знак минуса?
А если небо упадёт на землю и реки потекут к своим истокам?

[Sebas]

это пожизненный гимор.

Я делал ломом:

SetLocalInfo при старте.

Как я понял, так многие делают, ворд при этом всегда орёт НЕПРАВИЛЬНЫЙ РАЗДЕЛИТЕЛЬ ДРОБНОЙ ЧАСТИ

[alibek]

Вот именно. Поэтому надо не изобретать велосипед, а использовать то, что дано нам Microsoft'ом для этих целей.

[Yurich]

Если делать так:
Value=5.5
Text1.Text = Trim$(Str$(Value))
то в текстбоксе будет 5.5

Это подходит. Спасибо!

И еще. Как можно позиционировать курсор внутри TextBox-а?

[GSerg]

selstart