ValueChanged Property

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

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

Значение

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

Примечание

Пример

ЧисловоеПолеУзла1.ЗначениеИзменено = Ф.Действие(ЭтотОбъект, "ЧисловоеПолеУзла1_ЗначениеИзменено");

Полный пример кода

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

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

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

ДеревоЗначений1 = Ф.ДеревоЗначений();
ДеревоЗначений1.Родитель = Форма1;
ДеревоЗначений1.Стыковка = Ф.СтильСтыковки.Заполнение;

КолонкаДереваЗначений1 = Ф.КолонкаДереваЗначений("Небесные тела", 220);
КолонкаДереваЗначений2 = Ф.КолонкаДереваЗначений("Радиус орбиты (км)", 200);
КолонкаДереваЗначений1.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Центр;
КолонкаДереваЗначений2.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Центр;

ДеревоЗначений1.Колонки.Добавить(КолонкаДереваЗначений1);
ДеревоЗначений1.Колонки.Добавить(КолонкаДереваЗначений2);
ДеревоЗначений1.ИспользоватьКолонки = Истина;
ДеревоЗначений1.СтильСетки = Ф.СтильСетки.ГоризонтальнаяВертикальная;

ФлажокУзла1 = Ф.ФлажокУзла();
ФлажокУзла1.Колонка = КолонкаДереваЗначений1;
ФлажокУзла1.Редактируемый = Истина;
ФлажокУзла1.ТриСостояния = Истина;

ЗначокУзла1 = Ф.ЗначокУзла();
ЗначокУзла1.Колонка = КолонкаДереваЗначений1;
ЗначокУзла1.РежимМасштабирования = Ф.РежимМасштабированияКартинки.Масштабировать;
СтрИзображение = "iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAWUlEQVR42u3XMQoAIAxDUbN6/7O6Vg8gFsHWQPPBxaE8dCra58AMsAdQdwYNwPxZIUGAHeB0d5s7lxoQFT8gM07A9y8QQIC6gLFOL/0CAghAA8hMAFAvpylNvi01IRb0KhIAAAAASUVORK5CYII=";
Картинка = Ф.Картинка(СтрИзображение);
ЗначокУзла1.Изображение = Картинка;

ПолеВводаУзла1 = Ф.ПолеВводаУзла();
ПолеВводаУзла1.Колонка = КолонкаДереваЗначений1;

ЧисловоеПолеУзла1 = Ф.ЧисловоеПолеУзла();
ЧисловоеПолеУзла1.Колонка = КолонкаДереваЗначений2;
ЧисловоеПолеУзла1.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Право;
ЧисловоеПолеУзла1.Редактируемый = Истина;

ДеревоЗначений1.ЭлементыУзла.Добавить(ФлажокУзла1);
ДеревоЗначений1.ЭлементыУзла.Добавить(ЗначокУзла1);
ДеревоЗначений1.ЭлементыУзла.Добавить(ПолеВводаУзла1);
ДеревоЗначений1.ЭлементыУзла.Добавить(ЧисловоеПолеУзла1);

СолнечнаяСистема = Ф.УзелДереваЗначений("Солнечная система");
ДеревоЗначений1.Узлы.Добавить(СолнечнаяСистема);
СолнечнаяСистема.УстановитьЗначение(ПолеВводаУзла1, "Солнечная система");

Солнце = Ф.УзелДереваЗначений("Солнце");
СолнечнаяСистема.Узлы.Добавить(Солнце);
Солнце.УстановитьЗначение(ПолеВводаУзла1, "Солнце");

Меркурий = Ф.УзелДереваЗначений("Меркурий");
Солнце.Узлы.Добавить(Меркурий);
Меркурий.УстановитьЗначение(ПолеВводаУзла1, "Меркурий");
Меркурий.УстановитьЗначение(ЧисловоеПолеУзла1, 0.39 * 149597870.7);

Венера = Ф.УзелДереваЗначений("Венера");
Солнце.Узлы.Добавить(Венера);
Венера.УстановитьЗначение(ПолеВводаУзла1, "Венера");
Венера.УстановитьЗначение(ЧисловоеПолеУзла1, 0.72 * 149597870.7);

Земля = Ф.УзелДереваЗначений("Земля");
Солнце.Узлы.Добавить(Земля);
Земля.УстановитьЗначение(ПолеВводаУзла1, "Земля");
Земля.УстановитьЗначение(ЧисловоеПолеУзла1, 1.0 * 149597870.7);

Марс = Ф.УзелДереваЗначений("Марс");
Солнце.Узлы.Добавить(Марс);
Марс.УстановитьЗначение(ПолеВводаУзла1, "Марс");
Марс.УстановитьЗначение(ЧисловоеПолеУзла1, 1.52 * 149597870.7);

Юпитер = Ф.УзелДереваЗначений("Юпитер");
Солнце.Узлы.Добавить(Юпитер);
Юпитер.УстановитьЗначение(ПолеВводаУзла1, "Юпитер");
Юпитер.УстановитьЗначение(ЧисловоеПолеУзла1, 5.20 * 149597870.7);

Сатурн = Ф.УзелДереваЗначений("Сатурн");
Солнце.Узлы.Добавить(Сатурн);
Сатурн.УстановитьЗначение(ПолеВводаУзла1, "Сатурн");
Сатурн.УстановитьЗначение(ЧисловоеПолеУзла1, 9.54 * 149597870.7);

Уран = Ф.УзелДереваЗначений("Уран");
Солнце.Узлы.Добавить(Уран);
Уран.УстановитьЗначение(ПолеВводаУзла1, "Уран");
Уран.УстановитьЗначение(ЧисловоеПолеУзла1, 19.22 * 149597870.7);

Нептун = Ф.УзелДереваЗначений("Нептун");
Солнце.Узлы.Добавить(Нептун);
Нептун.УстановитьЗначение(ПолеВводаУзла1, "Нептун");
Нептун.УстановитьЗначение(ЧисловоеПолеУзла1, 30.06 * 149597870.7);

ДеревоЗначений1.РазвернутьВсе();

ЧисловоеПолеУзла1.ЗначениеИзменено = Ф.Действие(ЭтотОбъект, "ЧисловоеПолеУзла1_ЗначениеИзменено");

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

Тестовый код

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

Процедура ЧисловоеПолеУзла1_ЗначениеИзменено() Экспорт
	// Сообщить("ЧисловоеПолеУзла1_ЗначениеИзменено");
КонецПроцедуры

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

ДеревоЗначений1 = Ф.ДеревоЗначений();
ДеревоЗначений1.Родитель = Форма1;
ДеревоЗначений1.Стыковка = Ф.СтильСтыковки.Заполнение;

КолонкаДереваЗначений1 = Ф.КолонкаДереваЗначений("Небесные тела", 220);
КолонкаДереваЗначений2 = Ф.КолонкаДереваЗначений("Радиус орбиты (км)", 200);
КолонкаДереваЗначений1.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Центр;
КолонкаДереваЗначений2.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Центр;

ДеревоЗначений1.Колонки.Добавить(КолонкаДереваЗначений1);
ДеревоЗначений1.Колонки.Добавить(КолонкаДереваЗначений2);
ДеревоЗначений1.ИспользоватьКолонки = Истина;
ДеревоЗначений1.СтильСетки = Ф.СтильСетки.ГоризонтальнаяВертикальная;

ФлажокУзла1 = Ф.ФлажокУзла();
ФлажокУзла1.Колонка = КолонкаДереваЗначений1;
ФлажокУзла1.Редактируемый = Истина;
ФлажокУзла1.ТриСостояния = Истина;

ЗначокУзла1 = Ф.ЗначокУзла();
ЗначокУзла1.Колонка = КолонкаДереваЗначений1;
ЗначокУзла1.РежимМасштабирования = Ф.РежимМасштабированияКартинки.Масштабировать;
СтрИзображение = "iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAWUlEQVR42u3XMQoAIAxDUbN6/7O6Vg8gFsHWQPPBxaE8dCra58AMsAdQdwYNwPxZIUGAHeB0d5s7lxoQFT8gM07A9y8QQIC6gLFOL/0CAghAA8hMAFAvpylNvi01IRb0KhIAAAAASUVORK5CYII=";
Картинка = Ф.Картинка(СтрИзображение);
ЗначокУзла1.Изображение = Картинка;

ПолеВводаУзла1 = Ф.ПолеВводаУзла();
ПолеВводаУзла1.Колонка = КолонкаДереваЗначений1;

ЧисловоеПолеУзла1 = Ф.ЧисловоеПолеУзла();
ЧисловоеПолеУзла1.Колонка = КолонкаДереваЗначений2;
ЧисловоеПолеУзла1.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Право;
ЧисловоеПолеУзла1.Редактируемый = Истина;

ДеревоЗначений1.ЭлементыУзла.Добавить(ФлажокУзла1);
ДеревоЗначений1.ЭлементыУзла.Добавить(ЗначокУзла1);
ДеревоЗначений1.ЭлементыУзла.Добавить(ПолеВводаУзла1);
ДеревоЗначений1.ЭлементыУзла.Добавить(ЧисловоеПолеУзла1);

СолнечнаяСистема = Ф.УзелДереваЗначений("Солнечная система");
ДеревоЗначений1.Узлы.Добавить(СолнечнаяСистема);
СолнечнаяСистема.УстановитьЗначение(ПолеВводаУзла1, "Солнечная система");

Солнце = Ф.УзелДереваЗначений("Солнце");
СолнечнаяСистема.Узлы.Добавить(Солнце);
Солнце.УстановитьЗначение(ПолеВводаУзла1, "Солнце");

Меркурий = Ф.УзелДереваЗначений("Меркурий");
Солнце.Узлы.Добавить(Меркурий);
Меркурий.УстановитьЗначение(ПолеВводаУзла1, "Меркурий");
Меркурий.УстановитьЗначение(ЧисловоеПолеУзла1, 0.39 * 149597870.7);

Венера = Ф.УзелДереваЗначений("Венера");
Солнце.Узлы.Добавить(Венера);
Венера.УстановитьЗначение(ПолеВводаУзла1, "Венера");
Венера.УстановитьЗначение(ЧисловоеПолеУзла1, 0.72 * 149597870.7);

Земля = Ф.УзелДереваЗначений("Земля");
Солнце.Узлы.Добавить(Земля);
Земля.УстановитьЗначение(ПолеВводаУзла1, "Земля");
Земля.УстановитьЗначение(ЧисловоеПолеУзла1, 1.0 * 149597870.7);

Марс = Ф.УзелДереваЗначений("Марс");
Солнце.Узлы.Добавить(Марс);
Марс.УстановитьЗначение(ПолеВводаУзла1, "Марс");
Марс.УстановитьЗначение(ЧисловоеПолеУзла1, 1.52 * 149597870.7);

Юпитер = Ф.УзелДереваЗначений("Юпитер");
Солнце.Узлы.Добавить(Юпитер);
Юпитер.УстановитьЗначение(ПолеВводаУзла1, "Юпитер");
Юпитер.УстановитьЗначение(ЧисловоеПолеУзла1, 5.20 * 149597870.7);

Сатурн = Ф.УзелДереваЗначений("Сатурн");
Солнце.Узлы.Добавить(Сатурн);
Сатурн.УстановитьЗначение(ПолеВводаУзла1, "Сатурн");
Сатурн.УстановитьЗначение(ЧисловоеПолеУзла1, 9.54 * 149597870.7);

Уран = Ф.УзелДереваЗначений("Уран");
Солнце.Узлы.Добавить(Уран);
Уран.УстановитьЗначение(ПолеВводаУзла1, "Уран");
Уран.УстановитьЗначение(ЧисловоеПолеУзла1, 19.22 * 149597870.7);

Нептун = Ф.УзелДереваЗначений("Нептун");
Солнце.Узлы.Добавить(Нептун);
Нептун.УстановитьЗначение(ПолеВводаУзла1, "Нептун");
Нептун.УстановитьЗначение(ЧисловоеПолеУзла1, 30.06 * 149597870.7);

ДеревоЗначений1.РазвернутьВсе();

ЧисловоеПолеУзла1.ЗначениеИзменено = Ф.Действие(ЭтотОбъект, "ЧисловоеПолеУзла1_ЗначениеИзменено");

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

ЧисловоеПолеУзла.ЗначениеИзменено (NodeDecimalTextBox.ValueChanged) Свойство

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

Значение

Примечание

Пример

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