Кормораздатчик мобильный электрифицированный: схема и процесс работы устройства...
Семя – орган полового размножения и расселения растений: наружи у семян имеется плотный покров – кожура...
Топ:
Установка замедленного коксования: Чем выше температура и ниже давление, тем место разрыва углеродной цепи всё больше смещается к её концу и значительно возрастает...
Устройство и оснащение процедурного кабинета: Решающая роль в обеспечении правильного лечения пациентов отводится процедурной медсестре...
Эволюция кровеносной системы позвоночных животных: Биологическая эволюция – необратимый процесс исторического развития живой природы...
Интересное:
Распространение рака на другие отдаленные от желудка органы: Характерных симптомов рака желудка не существует. Выраженные симптомы появляются, когда опухоль...
Инженерная защита территорий, зданий и сооружений от опасных геологических процессов: Изучение оползневых явлений, оценка устойчивости склонов и проектирование противооползневых сооружений — актуальнейшие задачи, стоящие перед отечественными...
Наиболее распространенные виды рака: Раковая опухоль — это самостоятельное новообразование, которое может возникнуть и от повышенного давления...
Дисциплины:
2022-10-29 | 23 |
5.00
из
|
Заказать работу |
|
|
Список изображений (компоненты Microsoft Windows Common Controls 6.0) невидим во время выполнения программы. Он никогда не используется самостоятельно, а только предоставляет изображения другим объектам путем задания номера выбираемогоизображения в свойстве Index, а имя самого списка задается свойством ImageList(п. 8.3).
Отображение иерархических структур (TreeView)
Объект (компоненты Microsoft Windows Common Controls 6.0) позволяет вывести информацию в виде дерева с узлами и ветвями. Такое отображение применяется в проводнике Windows. Каждый узел является объектом типа 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.26. Отображение списков (ListVew)
Объект (компоненты Microsoft Windows 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)
|
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
|
|
Индивидуальные очистные сооружения: К классу индивидуальных очистных сооружений относят сооружения, пропускная способность которых...
Историки об Елизавете Петровне: Елизавета попала между двумя встречными культурными течениями, воспитывалась среди новых европейских веяний и преданий...
Поперечные профили набережных и береговой полосы: На городских территориях берегоукрепление проектируют с учетом технических и экономических требований, но особое значение придают эстетическим...
История создания датчика движения: Первый прибор для обнаружения движения был изобретен немецким физиком Генрихом Герцем...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!