End Sub

Элемент управления ListView обеспечивает просмотр данных, представленных в виде объектов ListItem (т. е. элементов списка). Всего предусмотрено четыре режима просмотра: Icon (крупные значки), SmallIcon (мелкие значки), List (список) и Report (отчет). Особенности каждого из них перечислены в таблице.

Режим просмотра	Краткая характеристика
Icon	Элементы списка представлены значками, которые пользователь может, перетаскивая мышью, переставить в любом порядке.
SmallIcon	Позволяет просматривать больше объектов ListItem, чем в режиме Icon. Как и в режиме Icon, пользователь может сам устанавливать порядок объектов.
List	Представляет объекты ListItem в отсортированном виде.
Report	Представляет объекты ListItem в отсортированном виде вместе с подэлементами (subitems), которые могут использоваться для вывода дополнительной информации.

НЕКОТОРЫЕ ВАРИАНТЫ ИСПОЛЬЗОВАНИЯ

- вывод результатов запроса к базе данных;

- вывод всех записей указанной таблицы базы данных;

- расширенный просмотр узла TreeView (совместно с TreeView).

ОБЪЕКТЫ LISTITEM И COLUMNHEADER

ListView включает объекты ListItem и ColumnHeader, которые определяют различные характеристики элементов списка. Они позволяют отображать:

- краткие описания элементов;

- значки, связанные с элементами (генерируются элементом управления ImageList);

- в режиме просмотра Report - дополнительные фрагменты текста, так называемые подэлементы (subitems)

Объект ColumnHeader - это элемент просматриваемого с помощью ListView списка, который содержит текст заголовка. Во время разработки программы его можно внести в список на странице Column Headers окна свойств ListView, а во время выполнения следует добавить объект ColumnHeader к коллекции ColumnHeaders, используя метод Add.

ПРИМЕР ИСПОЛЬЗОВАНИЯ LISTVIEW

Ниже мы продемонстрируем использование ListView на примере вывода списка записей из базы данных Northwind, которая входит в состав Office 97.

Добавьте к пользовательской форме элемент управления Microsoft ListView Control, version 5.0, после чего выполните следующие шаги:

1. Установите для свойства Caption пользовательской формы значение ListView, а для свойства Name - значение usfODE.

2. Добавьте к той же пользовательской форме элемент управления ImageList.

3. Для свойства Name элемента ImageList установите значение imlSupport.

4. Для всех изображений, которые нужно добавить к ImageList, выполните процедуру вставки рисунка.

5. Для свойства Name элемента ListView установите значение lsvODE.

6. Чтобы обеспечить работу с базой данных Northwind, установите связь с объектной библиотекой DAO 3.5: выберите в меню Tools ("Сервис") команду References ("Ссылки") и в появившемся окне отметьте Microsoft DAO 3.5 Object Library.

7. Выберите команду Module ("Модуль") в меню Insert ("Вставка").

8. В окне кода введите следующий текст:

Option Explicit Public mdbNWind As Database Public mItem As ListItem Public rsProducts As Recordset Sub SetUp() ' Открывает базу данных Northwind Set mdbNWind = DBEngine.OpenDatabase(_ "c:program filesmicrosoft officeofficesamples orthwind.mdb") ' Загружает UserForm Load usfODE ' Добавляет ColumnHeaders usfODE.lsvODE.ColumnHeaders.Add,, "Product Name", _ usfODE.lsvODE.Width / 2, lvwColumnLeft usfODE.lsvODE.ColumnHeaders.Add,, "Units in Stock", _ usfODE.lsvODE.Width / 4, lvwColumnLeft usfODE.lsvODE.ColumnHeaders.Add,, "Price", _ usfODE.lsvODE.Width / 4, lvwColumnLeft ' Устанавливает режим просмотра как Report usfODE.lsvODE.View = lvwReport ' Связывает элементы управления ImageList и ListView usfODE.lsvODE.SmallIcons = usfODE.imlSupport Call GetProducts End Sub Sub GetProducts() usfODE.lsvODE.ListItems.Clear ' Открывает Recordset Set rsProducts = _ mdbNWind.OpenRecordset("SELECT Products.UnitPrice, _ Products.ProductName,Products.UnitsInStock FROM Products;") ' Читает четыре записи базы данных Northwind в элемент ' управления ListView Dim intCounter As Integer For intCounter = 1 To 4 ' Добавляет ListItem Set mItem = usfODE.lsvODE.ListItems.Add() mItem.Text = rsProducts!PRODUCTNAME mItem.SubItems(1) = rsProducts!UNITPRICE mItem.SubItems(2) = rsProducts!UNITSINSTOCK ' Определяет, какой значок увязать с ListItem mItem.SmallIcon = 1 ' Получает следующую запись rsProducts.MoveNext Next intCounter ' Выводит UserForm usfODE.Show End Sub

Внимание: метод OpenDatabase в подпрограмме SetUp ссылается на папку, в которой по умолчанию хранится Northwind.mdb. На вашем компьютере путь к этому файлу может быть другим.

9. Активизируйте окно кода, щелкнув в любом месте секции описаний, и запустите пример на выполнение (см. рисунок).

Дата добавления: 2015-07-11