TreeNodeAdvCollection.Clear Method

Синтаксис

Очистить()

Параметры

Возвращаемое значение

Описание

Очищает коллекцию.

Примечание

Пример

ДеревоЗначений1.Узлы.Очистить();

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

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

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

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

КолонкаДереваЗначений1 = Ф.КолонкаДереваЗначений("Узлы", 80);
КолонкаДереваЗначений2 = Ф.КолонкаДереваЗначений("Число", 170);
КолонкаДереваЗначений1.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Центр;
КолонкаДереваЗначений2.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Центр;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

ДеревоЗначений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 = Ф.КолонкаДереваЗначений("Узлы", 80);
КолонкаДереваЗначений2 = Ф.КолонкаДереваЗначений("Число", 170);
КолонкаДереваЗначений1.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Центр;
КолонкаДереваЗначений2.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Центр;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

ДеревоЗначений1.Узлы.Очистить();

Сообщить(?(
ДеревоЗначений1.Узлы.Количество = 0
, "", "!!! ") + "УзлыДереваЗначений.Очистить (TreeNodeAdvCollection.Clear) Метод" + " " + ТекущаяДата());

УзлыДереваЗначений.Очистить (TreeNodeAdvCollection.Clear) Метод

Синтаксис

Параметры

Возвращаемое значение

Описание

Примечание

Пример

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