Список изображений (ImageList)

Список изображений (компоненты Microsoft Win­dows Common Controls 6.0) невидим во время выполнения программы. Он никогда не используется самостоятельно, а только предоставляет изображения дру­гим объектам путем задания номера выбираемогоизобра­же­ния в свойстве Index, а имя самого списка задается свойством ImageList(п. 8.3).

Отображение иерархических структур (TreeView)

Объект (компоненты Microsoft Win­dows Common Controls 6.0) поз­во­ляет вывести информацию в виде дерева с узлами и вет­вями. Такое отображение применяется в проводнике Win­dows. Каждый узел является объектом типа Node в семействе Nodes.

Специфичные свойства

LabelEdit =1 ‑ запрет на корректировку надписи узла.

ImageList  ‑ имя объекта со списком изображений.

Checkboxes =True ‑ ветви дерева отображаются в виде флажков Checkbox.

FullRowSelect  ‑ полное имя выбранной ветви.

Scroll =True ‑ вывод полосы прокрутки.

SingleSel  =True ‑ разворачивание ветви при ее выборе.

Добавление нового узла реализуется методом Add:

<имя объекта TreeView>. Nodes. Add ([Relative], [Relationship], Key, Text [, [Image] [, [SelectedImage]]])

Relative  ‑ имя родительского узла (свойство Index или Key).

Relationship  ‑ вид отношения к родительскому узлу: tvwChild (дочернее).

Key, Text, Image, SelectedImage  ‑ имя узла и его надпись, номер изоб­ра­же­ния обычного и выбранного узла в списках изображений (п. 6.24).

     События

BeforeLabelEdit / AfterLabelEdit  ‑ до/после изменения надписи узла. Прек­ра­тить редактирование надписи можно параметром Cancel=True.

Expand / Collaps  ‑ разворачивание/сворачивание ветви.

NodeClick  ‑ щелчок по узлу (ссылка на узел передается параметром).

NodeCheck  ‑ при изменении состояния ветви (при Checkboxes=True).

     Пример формирования изображения (рис. 6.25.1)

Private Sub Form_Load() ‘ процедура формирования дерева

Dim u As Node ‘ объявление объектной переменной типа Node

Set u = TreeView1.Nodes.Add(,, “Gorod“, “Екатеринбург“)

Set u = TreeView1.Nodes.Add(“Gorod“, tvwChild, “p1“, “Уралмашстрой“)

  Set u=TreeView1.Nodes.Add(“p1“, tvwChild, “s1“, “Магазин“)

  Set u = TreeView1.Nodes.Add(“p1“, tvwChild, “s2“, “Дом“) 

Set u = TreeView1.Nodes.Add(“Gorod“, tvwChild, “p2“, “ДСК“)

Set u=TreeView1.Nodes.Add(“p2“,tvwChild,“s3“,“Жилой дом“)

 Set u = TreeView1.Nodes.Add(,, “Gorod2“, “Н-Тагил“) ‘уровень 1

Set u = TreeView1.Nodes.Add(“Gorod2“, tvwChild, “p3“, “Тагилстрой“)

  Set u = TreeView1.Nodes.Add(“p3“, tvwChild, “s4“, “Больница“)

  Set u = TreeView1.Nodes.Add(“p3“, tvwChild, “s5“, “Школа“)

End Sub

                                                 Рис. 6.25.1. Вид дерева

 

6.26. Отображение списков (ListVew)

Объект (компоненты Microsoft Win­dows Common Controls 6.0) поз­во­ляет отображать элементы в виде списка строк, пиктограмм или табли­цы (в документации этот вид описан, но в версии Visual Basic 6.0, с ко­­то­­рой работал автор, он отсутствовал!). Каждый элемент списка яв­ля­ет­ся объ­ектом типа ListItem из семейства ListItems.

Специфичные свойства (основные)

View  ‑ вид списка: список (ivwList), отчет (ivwReport), список больших/ма­лень­ких пиктограмм (ivwIcon/ivwSmallIcon), таблица (ivwTable).

SubItems  ‑ свойство объекта ListItem содержит дополнительные данные, которые отображаются в списке табличного вида.

LabelEdit =1 ‑ запрет на корректировку надписи элемента списка.

Специфичные методы

     Добавление новой строки в список:

ListItems. Add ([Index], [Key], Text [, [Icon] [, [SmallIcon]]]).

Index, Key, Text ‑ номер, имя и текст добавляемого в список элемента.

Icon / SmallIcon  ‑ номер крупной/мелкой пиктограммы в ImageList (п. 6.24).

     Добавление нового столбца в список табличного вида:

ColumnHeaders. Add ([Index],[Key],Text[,[Icon], [Width], [Alligment]).

Index, Key, Text ‑ номер, имя и текст добавляемого столбца.

Width, Alligment ‑ ширина и выравнивание текста в столбце.

     События

BeforeLabelEdit / AfterLabelEdit  ‑ до/после изменения надписи элемента.

ItemClick / ColumnClick  ‑ щелчок по элементу/столбцу.

Пример создания таблицы из двух колонок (для проверки работы программы использовался список в виде отчета) (рис. 6.26.1)

                    Рис. 6.26.1. Вид таблицы из двух колонок

Private Sub Form_ Load() ‘процедура создания таблицы

Dim str As ListItem ‘ объявления объектных переменных типа ListItem

Dim col As ColumnHeader ‘и типа ColumnHeader

‘ добавление двух колонок в таблицу с шириной ListView1.Width / 2)

Set col = ListView1.ColumnHeaders.Add(,, ”Заказчик”, ListView1.Width / 2)

Set col = ListView1.ColumnHeaders.Add(,, ”Стройка”, ListView1.Width / 2)

Set str = ListView1.ListItems.Add(,, ”Уралмаш”) ‘ первая строка и колонка

str.SubItems(1) = ”Жилой дом”                       ‘ вторая колонка первой строки

Set str = ListView1.ListItems.Add(,, ”Химмаш”) ‘ вторая строка и колонка 1

str.SubItems(1) = ”Больница”                          ‘ вторая колонка второй строки

End Sub

6.27. Анимация AVI (Animation)

Объект (компонент Microsoft Windows Common Controls-2 6.0) воспроизводит несжатые AVI‑фай­лы без звука или сжатые RLE‑файлы.

Cвойство AutoPlay =True задает непрерывное воспро­из­ве­де­ние.

Специфичные методы

Open (<имя видеофайла>),   Stop ‑ открыть файл, прекратить.

Play [(n1, n2, n3)] ‑ вывод клипа N3 раза, начиная с кадра N1 по N2.

Пример анимации процесса копирования файлов в Windows

Private Sub Command1_Click() ‘ процедура вывода клипа

Animation1.Open _

(“C:\Program Files\Microsoft Visual Studio\ Common\ Graphics\Videos\Filecopy.avi“) Animation1.Play                    ‘ открытие файла и вывод клипа

End Sub