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

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

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

Значение

Тип: Действие (Action).

Возвращает или задает код при изменении свойства Значение (Value), либо вследствии события ПриПрокручивании (Scroll), либо программными средствами.

Примечание

Пример

ВертикальнаяПрокрутка1.ЗначениеИзменено = Ф.Действие(ЭтотОбъект, "ВертикальнаяПрокрутка1_ЗначениеИзменено");
Полный пример кода 

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


Процедура ВертикальнаяПрокрутка1_ЗначениеИзменено() Экспорт
	Сообщить("ВертикальнаяПрокрутка1_ЗначениеИзменено " + ТекущаяУниверсальнаяДатаВМиллисекундах());
КонецПроцедуры

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

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

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

Тестовый код 

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


Процедура ВертикальнаяПрокрутка1_ЗначениеИзменено() Экспорт
	Сообщить("ВертикальнаяПрокрутка1_ЗначениеИзменено " + ТекущаяУниверсальнаяДатаВМиллисекундах());
КонецПроцедуры

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

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

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

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

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