КоллекцияФорм.Получить (FormsCollection.Get) Метод

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

Процедура Кнопка1_Нажатие() Экспорт
    Сообщить("Кнопка1_Нажатие");
КонецПроцедуры

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

Форма2 = Ф.Форма();
Форма2.Текст = "Форма2";
Форма2.Отображать = Истина;
Форма2.Показать();
	
Кнопка1 = Ф.Кнопка();
Кнопка1.Родитель = Форма2;
Кнопка1.Текст = "Кнопка1";
Кнопка1.Границы = Ф.Прямоугольник(10, 10, 180, 30);
Кнопка1.Нажатие = Ф.Действие(ЭтотОбъект, "Кнопка1_Нажатие");

Кнопка2 = Ф.Кнопка();
Кнопка2.Родитель = Форма2;
Кнопка2.Текст = "Кнопка2";
Кнопка2.Границы = Ф.Прямоугольник(10, 10, 180, 30);
Кнопка2.Ниже(Кнопка1, 10);

Кнопка3 = Ф.Кнопка();
Кнопка3.Родитель = Форма2;
Кнопка3.Текст = "Кнопка3";
Кнопка3.Границы = Ф.Прямоугольник(10, 10, 180, 30);
Кнопка3.Ниже(Кнопка2, 10);

Сообщить("Ф.КоллекцияФорм.Количество = " + Ф.КоллекцияФорм.Количество);
Для Каждого форма Из Ф.КоллекцияФорм Цикл
	Сообщить("Текст формы = " + форма.Текст);
КонецЦикла;

Для А = 0 По Ф.КоллекцияФорм.Количество - 1 Цикл
	Сообщить("Форма с индексом " + А + " - " + Ф.КоллекцияФорм.Получить(А).Текст);
КонецЦикла;

ФормаСЭлементами = Ф.КоллекцияФорм.Получить(1);
Сообщить("Количество элементов на форме = " + ФормаСЭлементами.ЭлементыУправления.Количество);
Для Каждого элемент Из ФормаСЭлементами.ЭлементыУправления Цикл
	Сообщить("Текст элемента = " + элемент.Текст);
КонецЦикла;

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

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

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

Форма2 = Ф.Форма();
Форма2.Текст = "Форма2";
Форма2.Отображать = Истина;
Форма2.Показать();
	
// Сообщить("Ф.КоллекцияФорм.Количество = " + Ф.КоллекцияФорм.Количество);
Для Каждого форма Из Ф.КоллекцияФорм Цикл
	// Сообщить("Текст формы = " + форма.Текст);
КонецЦикла;

Для А = 0 По Ф.КоллекцияФорм.Количество - 1 Цикл
	// Сообщить("Форма с индексом " + А + " - " + Ф.КоллекцияФорм.Получить(А).Текст);
КонецЦикла;

ФормаСЭлементами = Ф.КоллекцияФорм.Получить(1);
// Сообщить("Количество элементов на форме = " + ФормаСЭлементами.ЭлементыУправления.Количество);
Для Каждого элемент Из ФормаСЭлементами.ЭлементыУправления Цикл
	// Сообщить("Текст элемента = " + элемент.Текст);
КонецЦикла;

Сообщить(?(
Ф.КоллекцияФорм.Получить(1).Текст = "Форма2"
, "", "!!! ") + "КоллекцияФорм.Получить (FormsCollection.Get) Метод" + " " + ТекущаяДата());