УзелДереваЗначений.Метка (TreeNodeAdv.Tag) Свойство

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

Только чтение.

Значение

Тип: Коллекция (Collection).

Возвращает объект, содержащий дополнительные данные.

Примечание

Пример

Коллекция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 = Ф.ЧисловоеПолеУзла(); ЧисловоеПолеУзла1.Колонка = КолонкаДереваЗначений2; ЧисловоеПолеУзла1.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Центр; ДеревоЗначений1.ЭлементыУзла.Добавить(ФлажокУзла1); ДеревоЗначений1.ЭлементыУзла.Добавить(ПолеВводаУзла1); ДеревоЗначений1.ЭлементыУзла.Добавить(ЧисловоеПолеУзла1); СолнечнаяСистема = Ф.УзелДереваЗначений("Солнечная система"); ДеревоЗначений1.Узлы.Добавить(СолнечнаяСистема); СолнечнаяСистема.УстановитьЗначение(ПолеВводаУзла1, "Солнечная система"); Солнце = Ф.УзелДереваЗначений("Солнце"); СолнечнаяСистема.Узлы.Добавить(Солнце); Солнце.УстановитьЗначение(ПолеВводаУзла1, "Солнце"); Меркурий = Ф.УзелДереваЗначений("Меркурий"); Солнце.Узлы.Добавить(Меркурий); Меркурий.УстановитьЗначение(ПолеВводаУзла1, "Меркурий"); Меркурий.УстановитьЗначение(ЧисловоеПолеУзла1, 0.39); Венера = Ф.УзелДереваЗначений("Венера"); Солнце.Узлы.Добавить(Венера); Венера.УстановитьЗначение(ПолеВводаУзла1, "Венера"); Венера.УстановитьЗначение(ЧисловоеПолеУзла1, 0.72); Земля = Ф.УзелДереваЗначений("Земля"); Солнце.Узлы.Добавить(Земля); Земля.УстановитьЗначение(ПолеВводаУзла1, "Земля"); Земля.УстановитьЗначение(ЧисловоеПолеУзла1, 1.0); Марс = Ф.УзелДереваЗначений("Марс"); Солнце.Узлы.Добавить(Марс); Марс.УстановитьЗначение(ПолеВводаУзла1, "Марс"); Марс.УстановитьЗначение(ЧисловоеПолеУзла1, 1.52); Юпитер = Ф.УзелДереваЗначений("Юпитер"); Солнце.Узлы.Добавить(Юпитер); Юпитер.УстановитьЗначение(ПолеВводаУзла1, "Юпитер"); Юпитер.УстановитьЗначение(ЧисловоеПолеУзла1, 5.20); Сатурн = Ф.УзелДереваЗначений("Сатурн"); Солнце.Узлы.Добавить(Сатурн); Сатурн.УстановитьЗначение(ПолеВводаУзла1, "Сатурн"); Сатурн.УстановитьЗначение(ЧисловоеПолеУзла1, 9.54); Уран = Ф.УзелДереваЗначений("Уран"); Солнце.Узлы.Добавить(Уран); Уран.УстановитьЗначение(ПолеВводаУзла1, "Уран"); Уран.УстановитьЗначение(ЧисловоеПолеУзла1, 19.22); Нептун = Ф.УзелДереваЗначений("Нептун"); Солнце.Узлы.Добавить(Нептун); Нептун.УстановитьЗначение(ПолеВводаУзла1, "Нептун"); Нептун.УстановитьЗначение(ЧисловоеПолеУзла1, 30.06); ДеревоЗначений1.РазвернутьВсе(); Коллекция1 = Земля.Метка; Коллекция1.Добавить(Форма1, "Объект"); Коллекция1.Добавить("Форма1", "Имя"); Коллекция1.Добавить(Истина, "Булево"); Коллекция1.Добавить(156.35, "Число"); Коллекция1.Добавить(Дата(1984,03,26,06,24,21), "Дата"); Сообщить("Объект = " + Земля.Метка.Элемент("Объект")); Сообщить("Имя = " + Земля.Метка.Элемент("Имя")); Сообщить("Булево = " + Земля.Метка.Элемент("Булево")); Сообщить("Число = " + Земля.Метка.Элемент("Число") / 2); Сообщить("Дата = " + Земля.Метка.Элемент("Дата")); Земля.Метка.Удалить("Булево"); Земля.Метка.Добавить(Ложь, "Булево"); Сообщить("Новое Булево = " + Земля.Метка.Элемент("Булево")); Ф.ЗапуститьОбработкуСобытий();

Тестовый код

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

ПодключитьВнешнююКомпоненту("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 = Ф.ЧисловоеПолеУзла(); ЧисловоеПолеУзла1.Колонка = КолонкаДереваЗначений2; ЧисловоеПолеУзла1.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Центр; ДеревоЗначений1.ЭлементыУзла.Добавить(ФлажокУзла1); ДеревоЗначений1.ЭлементыУзла.Добавить(ПолеВводаУзла1); ДеревоЗначений1.ЭлементыУзла.Добавить(ЧисловоеПолеУзла1); СолнечнаяСистема = Ф.УзелДереваЗначений("Солнечная система"); ДеревоЗначений1.Узлы.Добавить(СолнечнаяСистема); СолнечнаяСистема.УстановитьЗначение(ПолеВводаУзла1, "Солнечная система"); Солнце = Ф.УзелДереваЗначений("Солнце"); СолнечнаяСистема.Узлы.Добавить(Солнце); Солнце.УстановитьЗначение(ПолеВводаУзла1, "Солнце"); Меркурий = Ф.УзелДереваЗначений("Меркурий"); Солнце.Узлы.Добавить(Меркурий); Меркурий.УстановитьЗначение(ПолеВводаУзла1, "Меркурий"); Меркурий.УстановитьЗначение(ЧисловоеПолеУзла1, 0.39); Венера = Ф.УзелДереваЗначений("Венера"); Солнце.Узлы.Добавить(Венера); Венера.УстановитьЗначение(ПолеВводаУзла1, "Венера"); Венера.УстановитьЗначение(ЧисловоеПолеУзла1, 0.72); Земля = Ф.УзелДереваЗначений("Земля"); Солнце.Узлы.Добавить(Земля); Земля.УстановитьЗначение(ПолеВводаУзла1, "Земля"); Земля.УстановитьЗначение(ЧисловоеПолеУзла1, 1.0); Марс = Ф.УзелДереваЗначений("Марс"); Солнце.Узлы.Добавить(Марс); Марс.УстановитьЗначение(ПолеВводаУзла1, "Марс"); Марс.УстановитьЗначение(ЧисловоеПолеУзла1, 1.52); Юпитер = Ф.УзелДереваЗначений("Юпитер"); Солнце.Узлы.Добавить(Юпитер); Юпитер.УстановитьЗначение(ПолеВводаУзла1, "Юпитер"); Юпитер.УстановитьЗначение(ЧисловоеПолеУзла1, 5.20); Сатурн = Ф.УзелДереваЗначений("Сатурн"); Солнце.Узлы.Добавить(Сатурн); Сатурн.УстановитьЗначение(ПолеВводаУзла1, "Сатурн"); Сатурн.УстановитьЗначение(ЧисловоеПолеУзла1, 9.54); Уран = Ф.УзелДереваЗначений("Уран"); Солнце.Узлы.Добавить(Уран); Уран.УстановитьЗначение(ПолеВводаУзла1, "Уран"); Уран.УстановитьЗначение(ЧисловоеПолеУзла1, 19.22); Нептун = Ф.УзелДереваЗначений("Нептун"); Солнце.Узлы.Добавить(Нептун); Нептун.УстановитьЗначение(ПолеВводаУзла1, "Нептун"); Нептун.УстановитьЗначение(ЧисловоеПолеУзла1, 30.06); ДеревоЗначений1.РазвернутьВсе(); Коллекция1 = Земля.Метка; Коллекция1.Добавить(Форма1, "Объект"); Коллекция1.Добавить("Форма1", "Имя"); Коллекция1.Добавить(Истина, "Булево"); Коллекция1.Добавить(156.35, "Число"); Коллекция1.Добавить(Дата(1984,03,26,06,24,21), "Дата"); Земля.Метка.Удалить("Булево"); Земля.Метка.Добавить(Ложь, "Булево"); Сообщить(?( Коллекция1 = Земля.Метка , "", "!!! ") + "УзелДереваЗначений.Метка (TreeNodeAdv.Tag) Свойство" + " " + ТекущаяДата());

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

УзелДереваЗначений (TreeNodeAdv) Класс | Библиотека OneScriptForms