ПолосаПрокрутки.Значение (ScrollBar.Value) Свойство

Использование

Чтение и запись.

Значение

Тип: Число.

Возвращает или задает числовое значение, представляющее текущее положение ползунка на полосе прокрутки.

Значение по умолчанию: 0.

Примечание

Пример

ВертикальнаяПрокрутка1.Значение = 40;
Полный пример кода 

Копировать     Выделить всё


Перем Ф, Надпись14, ВертикальнаяПрокрутка1;

Процедура ВертикальнаяПрокрутка1_ПриПрокручивании() Экспорт
	Надпись14.Текст = "" + ВертикальнаяПрокрутка1.Значение;
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Ширина = 500;
Форма1.Высота = 400;
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

ВертикальнаяПрокрутка1 = Форма1.ЭлементыУправления.Добавить(Ф.ВертикальнаяПрокрутка());
ВертикальнаяПрокрутка1.Положение = Ф.Точка(20, 20);
ВертикальнаяПрокрутка1.Размер = Ф.Размер(25, Форма1.Высота - 80); 
ВертикальнаяПрокрутка1.УстановитьГраницы(20, 20, 25, Форма1.Высота - 80); 
ВертикальнаяПрокрутка1.Минимум = 0; 
ВертикальнаяПрокрутка1.Максимум = 100; 
ВертикальнаяПрокрутка1.БольшоеИзменение = 1; // задаем равным 1 для возможности достижения ползунком максимума
ВертикальнаяПрокрутка1.ПриПрокручивании = Ф.Действие(ЭтотОбъект, "ВертикальнаяПрокрутка1_ПриПрокручивании"); 

Надпись13 = Форма1.ЭлементыУправления.Добавить(Ф.Надпись());
Надпись13.Положение = Ф.Точка(ВертикальнаяПрокрутка1.Право + 20, 70);
Надпись13.Размер = Ф.Размер(400, 20); 
Надпись13.Текст = "Позиция вертикальной прокрутки (Min = " + ВертикальнаяПрокрутка1.Минимум + ", Max = " + ВертикальнаяПрокрутка1.Максимум + "):";

Надпись14 = Форма1.ЭлементыУправления.Добавить(Ф.Надпись());
Надпись14.Положение = Ф.Точка(Надпись13.Лево + 20, Надпись13.Низ + 10);
Надпись14.Размер = Ф.Размер(250, 25); 
Надпись14.Текст = "" + ВертикальнаяПрокрутка1.Значение;
Надпись14.Шрифт = Ф.Шрифт(, 12, ); 

ВертикальнаяПрокрутка1.Значение = 40;
Надпись14.Текст = "" + ВертикальнаяПрокрутка1.Значение;

Ф.ЗапуститьОбработкуСобытий();

Тестовый код 

Копировать     Выделить всё


Перем Ф, Надпись14, ВертикальнаяПрокрутка1;

Процедура ВертикальнаяПрокрутка1_ПриПрокручивании() Экспорт
	Надпись14.Текст = "" + ВертикальнаяПрокрутка1.Значение;
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Ширина = 500;
Форма1.Высота = 400;
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

ВертикальнаяПрокрутка1 = Форма1.ЭлементыУправления.Добавить(Ф.ВертикальнаяПрокрутка());
ВертикальнаяПрокрутка1.Положение = Ф.Точка(20, 20);
ВертикальнаяПрокрутка1.Размер = Ф.Размер(25, Форма1.Высота - 80); 
ВертикальнаяПрокрутка1.УстановитьГраницы(20, 20, 25, Форма1.Высота - 80); 
ВертикальнаяПрокрутка1.Минимум = 0; 
ВертикальнаяПрокрутка1.Максимум = 100; 
ВертикальнаяПрокрутка1.БольшоеИзменение = 1; // задаем равным 1 для возможности достижения ползунком максимума
ВертикальнаяПрокрутка1.ПриПрокручивании = Ф.Действие(ЭтотОбъект, "ВертикальнаяПрокрутка1_ПриПрокручивании"); 

Надпись13 = Форма1.ЭлементыУправления.Добавить(Ф.Надпись());
Надпись13.Положение = Ф.Точка(ВертикальнаяПрокрутка1.Право + 20, 70);
Надпись13.Размер = Ф.Размер(400, 20); 
Надпись13.Текст = "Позиция вертикальной прокрутки (Min = " + ВертикальнаяПрокрутка1.Минимум + ", Max = " + ВертикальнаяПрокрутка1.Максимум + "):";

Надпись14 = Форма1.ЭлементыУправления.Добавить(Ф.Надпись());
Надпись14.Положение = Ф.Точка(Надпись13.Лево + 20, Надпись13.Низ + 10);
Надпись14.Размер = Ф.Размер(250, 25); 
Надпись14.Текст = "" + ВертикальнаяПрокрутка1.Значение;
Надпись14.Шрифт = Ф.Шрифт(, 12, ); 

ВертикальнаяПрокрутка1.Значение = 40;
Надпись14.Текст = "" + ВертикальнаяПрокрутка1.Значение;

Сообщить(?(
ВертикальнаяПрокрутка1.Значение = 40
, "", "!!! ") + "ПолосаПрокрутки.Значение (ScrollBar.Value) Свойство" + " " + ТекущаяДата());

Смотрите также

ПолосаПрокрутки (ScrollBar) Класс | Библиотека OneScriptForms