Вопрос о ScrollBar

[Zoal]

Можно ли используя ScrollBar увеличивать значение текстового поля на 0.1? Если нет, то чем воспользоваться? Просто нужно создать окошко типа как в word, для определения отступа.
ОЧЕНЬ НУЖНО! ПЛИЗЗЗЗ!

[GSerg]

Можно ли используя ScrollBar увеличивать значение текстового поля на 0.1?

Да.

Если нет, то чем воспользоваться?

Ещё есть UpDown в составе common controls, если надо готовое.

ОЧЕНЬ НУЖНО! ПЛИЗЗЗЗ!

Не нужно орать, плизззз.

[moppuk]

project > Components > Microsoft Windows Common Contrlols 6.0, Microsoft Windows Common Contrlols-2 6.0

Используй эдемент UpDown...
1. На форму элемнет, TextBox
2. На форму UpDown
3. Св-во BuddyControl - имя элемента управления, в который предпологается вводит значения.
4. Значение BuddyProperty = default. При этом UpDown будет встоматически обновлять стандартное свойство связанного с ним элемента.
Далее... Св-ва.
- Aligment - с какой стороны от эл распологается
- Orientation - по горизонтале или вертикали
- Increment - величина изменения при каждом щелчке мыши.
- Мах - мак. допустимое значени
- Min - минимальное
- Wrap - определяет, примет ли эл. свое мин. значение, если щелкать мышью на кн. со стрелкой вверх до тех пор, пока бужет превышено макс. доп. значение и наоборот.

[Zoal]

За UpDown спасибо, на 1 без проблем, но вот мне очень надо на 0.1. Increment, как я понял м.б. только целое.
Я уже пробовал Value на 10 делить

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

Private Sub UpDown1_Change()
Text1.Text = UpDown1.Value / 10
End Sub

Но тогда не получается число ввести и его уже потом на 0.1 увеличить.

[GAGArin]

Попробуй так:

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

Private Sub text1_Change()
UpDown1.Value = int(val(text1.text)*10)
End Sub

Косяк может выйти на переводе (val) Но там сам доработай. Или как нить еще делай.