ImageCollection.AddStrip Method

Синтаксис

ДобавитьПолосу(<Изображение>)

Параметры

Изображение (обязательный): Тип: Картинка (Bitmap).; Объект Картинка (Bitmap) с добавляемым изображением (изображениями).

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

Тип: Число.

Индекс добавленного изображения или -1, если изображение не может быть добавлено.

Описание

Добавляет полосу изображений заданного изображения для СписокИзображений (ImageList).

Примечание

Пример

Изображения1.ДобавитьПолосу(Изображение);

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

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

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

Дерево1 = Форма1.ЭлементыУправления.Добавить(Ф.Дерево());
Дерево1.Стыковка = Ф.СтильСтыковки.Заполнение;
Узел1 = Дерево1.Узлы.Добавить("Узел1");
Узел2 = Дерево1.Узлы.Добавить("Узел2");
Узлы1 = Узел1.Узлы;
ПодУзел1 = Узлы1.Добавить("ПодУзел1");
Дерево1.СтильГраницы = Ф.СтильГраницы.Трехмерная;

СписокИзображений1 = Ф.СписокИзображений();
Дерево1.СписокИзображений = СписокИзображений1;

Изображения1 = СписокИзображений1.Изображения;
Дерево1.СписокИзображений.РазмерИзображения = Ф.Размер(16, 16);

Стр = "iVBORw0KGgoAAAANSUhEUgAAAEAAAAAQCAIAAAAphe5+AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAACcSURBVEhLlc7BCQQxAMSwlHalpf
|O9vw1jAipA5zuPvvvk3PPku78n+iUVN/wSfkm/pOKGX8Iv6ZdU3PBL+CX9koobfgm/pF9SccMv4Zf0Sypu+CX8kn5JxQ2/hF/SL6m44ZfwS/olFTf8En5Jv6Tihl/CL+mXVNzwS/gl/ZKKG34Jv6R
|fUnHDL+GX9Esqbvgl/JJ+ScUNv4RfuL8//628TBZ9aFMAAAAASUVORK5CYII=";
Изображение = Ф.Картинка(Стр);
Изображения1.ДобавитьПолосу(Изображение);
Дерево1.ИндексИзображения = 0;
Дерево1.ИндексВыбранногоИзображения = 2;

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

Тестовый код

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

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

Дерево1 = Форма1.ЭлементыУправления.Добавить(Ф.Дерево());
Дерево1.Стыковка = Ф.СтильСтыковки.Заполнение;
Узел1 = Дерево1.Узлы.Добавить("Узел1");
Узел2 = Дерево1.Узлы.Добавить("Узел2");
Узлы1 = Узел1.Узлы;
ПодУзел1 = Узлы1.Добавить("ПодУзел1");
Дерево1.СтильГраницы = Ф.СтильГраницы.Трехмерная;

СписокИзображений1 = Ф.СписокИзображений();
Дерево1.СписокИзображений = СписокИзображений1;

Изображения1 = СписокИзображений1.Изображения;
Дерево1.СписокИзображений.РазмерИзображения = Ф.Размер(16, 16);

Стр = "iVBORw0KGgoAAAANSUhEUgAAAEAAAAAQCAIAAAAphe5+AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAACcSURBVEhLlc7BCQQxAMSwlHalpf
|O9vw1jAipA5zuPvvvk3PPku78n+iUVN/wSfkm/pOKGX8Iv6ZdU3PBL+CX9koobfgm/pF9SccMv4Zf0Sypu+CX8kn5JxQ2/hF/SL6m44ZfwS/olFTf8En5Jv6Tihl/CL+mXVNzwS/gl/ZKKG34Jv6R
|fUnHDL+GX9Esqbvgl/JJ+ScUNv4RfuL8//628TBZ9aFMAAAAASUVORK5CYII=";
Изображение = Ф.Картинка(Стр);
Изображения1.ДобавитьПолосу(Изображение);
Дерево1.ИндексИзображения = 0;
Дерево1.ИндексВыбранногоИзображения = 2;

Сообщить(?(Изображения1.Количество = 4, "", "!!! ") + "Изображения.ДобавитьПолосу (ImageCollection.AddStrip) Метод" + " " + ТекущаяДата());